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TITLE TSKSHO 

EMABL L.C 

DSABL G'BL 

CSECT TSKSHO 



Kceyboard SHOW Command Routines 



TSKGHD: 



TSKSHO is the portion of TSKMON that contains the code 

to implement the SHOW conimand. 

Copyright 1978.. 1979, 1700. 1981, 1982, 1983, 1984, 1985. 

^•n^rM f ! /•! rt- # n » » 4- a -rv C:J ii r; +• ca «. t: . 1 r, t . 

Nashville, Tennessee 
Macro tails 



MCALL 
MCALL 
MCALL 
MCALL 
MCALL 
MCALL 
MCALL 



CS ISPC, 

READW, . 

CSIQEN, 

STL IN, . (rf JM, 

PRINT, . CLOSE 

WRITW, 



. T'lOUTR, . SRESET 
TTYlN, . TTYOUT, . PURGE 
. SAVEST, . REOPEN 

DATE, . SPFUN 

. LOOKUP 
ENTER, . E.XIT 



SERR, . HLRR, . FPROT, . GVAL, . PVAL 



Global definitions 

. GLOBL TSKSHO, CMDHD, CMDOFF, KDOCIN, SKPSPC, UCLCMD 

. GLOBL DORUN, CMDFRM, CMDDSN, STLGCN, DATTXM, PRGALL 

. GLOBL DLCEMT, ALCDEV, CMDSHO, CMDSET, CMDWHO, CMDMEM, CMDUSE 

GlobcU references 

. GLOBL AF*DUP, AF*IND, AF*UCL, AF*SET, AF*CCA, TSXVRS, AF*NPW 

. GLOBL CKCLUS, SHOKEY, HANIOC, SYPSWD, TM*NSP, TM*SL1 , TM*OFF, TM*ON 

. GLOBL TM*KED, TM$ R Y. TM*SUB, TM*NO, VMXMSG, VMAXMC, VMXMRB 

. GLOBL PEKEMT, PEKADR, PEKSI2, TM*NNR, CDBUF, CDGET, TM*IN1, TH*IN2 

. GLOBL CLRPRV, OPTLST, PESO, PFCO, PVNPW, TSXVER 

. GLOBL PO$SYS, PO*SPV, PRIVSO, PRVOPT 

. GLOBL TM*PVA, TM^ePVC, PRIVAO, EM*CNO, EM*CPO, EM*CAP, RSTPRV 

, GLOBL CHKEQ, CKACOJ, PO^^OPR, CKSYPV, AF*BYA, TM^PVL, DMYDEV, AF*TPO 

. GLOBL INSTBL, INGADR, INGEMT, IIBUF, II*NAM, II*FLG, I I**SZ, EM*NAD 

. GLOBL INSTSN, AF-^SCA, AF*NQW, AF$MEM, PO*DBG, PRIVCO, PRVLST 

. GLOBL ABRTAD, ABRTCD, CINFLG, $VNOTT, VPRILO, VPRIHI, II$PRV, II*NPV 

. GLOBL TM*RD1 , TM$RD2, TM«LCL, TM*GBL, SPACEl , RC«OWN, RC*CNT 

. GLOBL RC*EXC, RC*AGE, RC*AEP, RC$USE, RC*FLG, RC*GBLi RC*NAM 

. GLOBL RC«LEN, RC$PVT, RCBBAS, RCBEND, RC**SZ, SHRRCB, SHRRCN 

. GLOBL LP*SPD, LP*PAR, LP*ODD, LP*7BT, EM*ICL, PROSLT, RC*LCG 

. GLOBL EMfNPD, EM$ILN, EM*CIP, EM*NSF, EM$IUN, EM*CLN 

. GLOBL EM$ I LN, EM$ACL, EM*TSL, EM$CLB, EM*NSL, EM*SLT, EM*SLW 

. GLOBL SLKDON, SLKDOF, EM$UIO, TM*PR1, TM*PR2, TM*LPR, TM*HPR 

. GLOBL TM*HPE, TM$CNG, TM*CDS, TM*CEN, TRMHDl, TRMHD2 

. GLOBL CPRTXT, CLLINE, LCLTXT, REMTXT, TM^AUT, CLFREE, CLUNIT, CLVERS 

, GLOBL TMfCLO, TM*CL1 , TM*CL2, TM*CL3, TM*CL4, TM*CL5, TM*CL6, TM*CL7 

. GLOBL TM$CLS, QHDMSl, QHDMS2, DVSHHl, DVSHH2, DVSHH3, SYASHD, DKASHD 

. GLOBL TM*NAD, ALCHDl, ALCHD2, TM*NSD, TM*SDN, LNAME, TM*C13 

. GLOBL CORUSR, LSW, *CTRLO, SERFLG, lOABFL, *CHACT, *STSNG 

. GLOBL LSTHL, LCLUNT, FSTIOL, LSTIOL, CL*L.IX, CWIiPRO, C0NFG2 

. GLOBL CL*RQH, CL*WGH, MAXALC, ALCTBL, ALCEND 
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GLOBL 
GLOBL 
GLOBL 
CLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
f.)\ nP! 



AD*DVU, AD$JOB> AD**SZ> UCIDEF, HANCHN 
NEDCHR, LOUTIR, LINIR, LINRTS, CLOT I R 
CO*DEF, CL*CDL, LCDTYP^ SOPALC, SDPDAT, SOPTIM 
UTRPAD. JSWLDC> ERRLDC, MAXMEM, HAXPRI 
USRSTK, *KINIT, CFSTK, MXJMEM, DFJHEM, EM*HNI 
SPUBUF, SXBPNT, VSWPFL, MXJADR, CLSFCH 
TMTOTH, TMTOTL> TMUSRH, TMIOWH, LDMNT, EM*CSE 
TMSWTH, TMIDLH, TM.TOH, TMSWPH, LDCLEN 
WILDFL, *NOIN> *NOWTT, *HITTY 
TECO, EDIT, KED, K52, *1STLG, *DIBOL 



GBL SHfVAL; SHf NAM.- SH*$SZ.- SHijRTN; SH*FLG 

GLOBL SO*NVL, GO*OCT> SO*NO, HANENT, HANSIZ 

GLOBL H. CSR, H. VEC, DVSTAT, SFID, ACRSPD, HANPAR, LSTSPL 

GLOBL HAZEL, HAZLFL, HAZLNO> *MLOCK, MDT, GETKCH 

GLOBL LINBUF, LINNXT, LSTACT, PRGTOP, PRGSIZ, KMNHI 

GLOBL KMNTOP, KMNPGS, KMNSTK, KMNSTR, CXTPAG, FSTIOL 

GLOBL LINPNT, LINCNT, LACTIV, LRDTIM, CS*ROI\l 

GLOBL LOTBUF, LQTNXT, LOTPNT. *VTESC 

GLOBL LOTSIZ> LOTSPC, LCOL, *SLKED, ESC 

GLOBL LAFSIZ. LFWLIM, L INCUR, NUMON, ILSW2 

GLOBL VPRIDF, VPRIVR, *DBKMN 

GLOBL *CARUP, DOASGN, UKMNAM, fUKMON, LSW9 

GLOBL LSUCF, *CCLRN, EM*NUK, S*QMIO, S**RUN 

GLOBL KL3CLR, *PRGLK> LSW5, PVON, S*SPND, *AUTO 

GLOBL S*TWFN, S^TTF^N, S*OTFN, S*IOFN, S*OTLO 

GLOBL LSTDL, FSTDL, fDETCH, UMSYTP, S*TTSC 

GLOBL *DISCN, LPROJ, LPROG, LUNAME, S*RT, S*LOW 

GLOBL LCPUHI, LCPULO, LCONTM, *CTRLS, *SPLJB, TXTCL 

GLOBL STPFLG, TOTON, USPLCH, SPLCHN, S*HICP, TXTCl 

GLOBL S*INWT. S*OTWT, SfTMWT, S*SFWT> S9600 

GLOBL S*MSWT, CFBUF, CFEND. CCLSAV, KMNCHN 

GLOBL HINTIM, LSECPT, HAXSEC, *EMTTR, VCSHNB 

GLOBL OKFILE, OKFEND, *CLTST, UCISPC, MMNSIZ 

GLOBL CASTBR, CASCBR, CASTBW, CASCUP, MHNSMS 

GLOBL CASTRO, CASTWO, CLTOTL, CO*DTR, CLSFSP 

GLOBL CO*CR, CO*FF, CO^^FFO, COlsLC, CO*TAB, CO*CTL 

GLOBL CO*LF I , CO$LFO, CO«BN I , CO*BNO, CL*OPT 

GLOBL CL*LEN, CL<?SKP, CL«WID, CL*LIN, PHYMEM 

GLOBL LJSW, CTRLTT, NEWJSW, JSTKND, VI MAGE 

GLOBL USTART, GENTOP, BOTDEV, BOTUNI , CSHALC 

GLOBL *CTRLC , LSW2, * I NKMN, CHA I N, UFORM 

GLOBL *SGQO, ^?SGQ3, LITJME 

GLOBL MAXASN, AT$*SZ, UCFABT, INDSTA, INDERR 

GLOBL RUNDEV, LNBLKS, CXTBAS, CXTWDS, UHIMEM 

GLOBL ASNfSL, *DILUP, CSHDEV, CSHDVN, LNSBLK 

GLOBL ASNEWD, LSW3, LSW2S, *DUPRN 

GLOBL *FORM, *TAB, LSCCA, *CFSOT, LOFSPC, R50C0M 

GLOBL $PAGE, $SCOPE, *ECHO, *LC, *8BIT, CHKALC 

GLOBL UCHAN, $FORMO, *CFALL, *CFDCC, *CFCCL 

GLOBL LNPRIM, LNMAP, CW*50H, CONFIG, *SUCF 

GLOBL *DOOFF, NUCUN, LRBFIL, CFIND, TALEMT 

GLOBL C. CSW, C. DEVO, C. SBLK, NLINES, C0*8BT 

GLOBL CD*NAM, CD*DVU, CD*BAS, CD*JOB, CD**SZ, CD*«UB 

GLOBL LTSCMD, LNBPAC, CFNEST, UCLNAM 

GLOBL *CFOPN, CFSEND, PBFEND, CFSP, *TTGAG 

GLOBL UFPTRP, SDSFCB, SD*DEL, CFLFL4, *UCLCF 

GLOBL SDFLAG, SD*F"LK, SD*WFM, SDFORM, *UCLRN 
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. GLOBL SDBUFl , SDI3L.K, MSPLDV, LD*RON, *UCLCM, *UCLCL 

. OLOBL LDNAME. LDSIZE.. LDFLAG, LDBASE, LDPDEV 

. GLOBL LSW8, *SGC11> *SGQ1A, *SGQ1B, *SGQ1C, *SGQ2, *SGIIO, *SeHIO 

. GLOBL *DEFER, CFCHAN, SCHAIIM, LDDEVX, fSGALL 

. GLOBL CFPNT, CFBLK, $QUIET, DIABFL 

. GLOBL DIABNO, VT52N0, LA36ND, LA36FL 

. GLOBL LSW4, KL4CLR, SDSKIP, SDBU. SD*BAK 

. GLOBL $INCOR, *KED, VQUNIB, VINTIO, VQUNIC 

. GLOBL SF*BSY, SFFORM, SD*SNG, SFNMBL, NFRESB 

. GLOBL SD*HLD, SF*HLD, CURPRM, PRMPNT, SF*1ST 

GLOBL LSTPRM-- PRHBL'F.- PRMEND> CFSPND 

GLOBL SDFHD. SFFLAG, SFQLNK, CFHOLD> LOGDVU, LOGBAS 

GLOBL LCOL, *QTSET, *TECO, CD*TOP, LOGCHK 

GLOBL *WILD, ERRSEV, UERSEV, PASLIN, LOGBAS, LOGDVU 

GLOBL LSTPL, SDCB, SDCBND, VQUANO, VQUAN3 

GLOBL VQUANl, VOUNIA. VvlUAN2, VHIPCT, VQUANO, VQUAN3 

GLOBL DCTRD, DCCRD, DCTWR, DCCWR 

GLOBL ATSLOG, AT*S1Z, AT*DEV, AT*FIL, AT*EXT, AT**SZ 

GLOBL VCORTM> WUMDCD, KMPRMT, MXPRMT, CIDEVX 

GLOBL RDB, RDBEND, RT*DEV, RT*NAM, RT**SZ, CLDEVX, SDDVU 

GLOBL SDNAME, SDCBSZ, LSTSL, LSTATE 

GLOBL TKIVAL, CIMDAT, SVSDAT, SYTIMH, SYTIML 

GLOBL BASMAP, LDMAP, HIMAP, JCXPGS 

GLOBL SMRSIZ, SRTSIZ, CSHSIZ, TKISEC 

GLOBL TSXLN, TSXSIT, GRTl, TRGRET, LICTXT, SUPCOD, NAMTOP, SUMS, SUCS 

GLOBL LPRGl, LPRG2, S-*QUSR, S*IOWT 

GLOBL S*SPDB, S$SPCB.. SFUSER, SFFILE, VT200, VT2007, VT200S 

GLOBL LCBIT, LA36, LA.t20, VT52, VTIOO, DIABLO, QUME 

GLOBL ADM3A, LTRMTP, LA12FL, LAi2N0, VT52FL 

GLOBL VTIOFL, VTIONO, QUMEFL, QUMENO, ADM3FL 

GLOBL VT20FL, VT20N0 

GLOBL ADM3N0, SYINDX, SYUNIT, NUMDEV, PNAME 

GLOBL 0F*DEV, CFfUNT, OF*FIL, OF*FLG, SYNAME 

GLOBL OF**SZ, OT*RON, RESDEV, *TAPE 

GLOBL KMNBAS, ODTBAS, *CTRLD 

GLOBL LSW6, *SNWTT, PF*SYS, PF*IOW, *DEBUG 

GLOBL RSR, TSR, LMXNUM, LSTMX, MXDTR, ZCLR, MXCSR 

GLOBL *INDDF, *INDRi\i, IN*ACT, IN*CNT, INfCMD, INDSAV 

GLOBL $PHONE, INVEC, LMXLN, MXVEC, *INIT, *DEAD, *HARD 

GLOBL ITRMTP, LMXPRM, LSW7, *INDAB, CFSTS, CF*IND, CF*QUT 

GLOBL CFABLV, MDNVEC, LBSPRI, MAXPRI, MXJPRI, LPRI 

GLOBL LOGCHN, LOGFLG, LOGPTR, LOGBUF, LOGBLK 

GLOBL LFfOPN, LF*WRT, UCLBLK, UCLDAT 

GLOBL CSHHD, FC«CDX, FC*LNK, FD*NAM, UC*NDC, UCfMDC, CVTUC 

GLOBL CMDBUF, PAO'MSG, RDCHD, DKSAV, SYSAV, CV'TTAB, RUNHD, SEARCH 

GLOBL FKILL, ABRTCF, ACRFN, XAREA, FILNAM, NOPRG, FPRINT 

GLOBL PUSHCF, TRMGTH, FILNAM, R50DIR, R50SY, R50IND, R50SAV 

GLOBL INDACT, R50DUP, R50PIP, R50KED, R50K52, R50KEX, R50TSX, R50UCL 

GLOBL BLKO, RDERM, R50VIR, NOSTRT, RUNEMT, OVRCOR 

GLOBL BADSAV, LDNAM, NOPRG, NOCIN, SIZVAL, ASKLNH, BADCMD, KCSIBF 

GLOBL ASDEX, KCSIMS, ASNOVF, GTRD50, R50BUF, R SOLDO, MNTDEV, DMTARG 

GLOBL DEADEV, CHKMNT, CHKMTX, INFOMT, NOFLAG, MTOPHD, ILLCMD 

GLOBL R50LD, INV/LDN, R50DSK, ACRFIL, BDFNAM, LOGASN, MNTFUL, R50LD7 

GLOBL TBLOVF, SETHD, CSIMS2, CKPRIV, R50N0, AMBOPT, ACRDEC 

GLOBL MAXAVL, PRTDEC, DEVUNT, PNAME, HNBUF 

GLOBL ACROCT, HANBSY, CSIMSl, MISSEQ, NOIND, POPCF 

GLOBL BADPMT, BADPRI, TOTXT, CRLF, HIPRI, STLGHD, LOGCLS, R50L0G 
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QLDBL BDLOOP. SPLHLA. NOCCL> LDOPHD, PRTFIX, PRTSPC 

<5LOQL DLTXT, OCTFIX. PRTTTP, NATXT, SPDTXl , NOTXT, YESTXT. NINTXT 

GLOBL PRTUNM. SYHDl , SYHD2, PRTLN, SPACES, DETTXT, SPACE3, RNMS, WTMS 

GLOBL SWPTX> LOCKTX, SPACES, PRTDC3, KBMSG, DIVIDE, PRTDC2 

GLOBL COLOO, CPUAH, CPUAL, PRTTMV, NOFIL, CMDBUF, CALUCL 

GLOBL NOUDC, DEVHDl , ASNHDl , ASNHD2, SHMTHl , SHMTH2, PRTTMD 

GLOBL CVDVNri, SPACE6, PRTBUF, PRTFNH, NONEMS, NODAT, NOLDMT 

GLOBL SUBARO, EDTFIL, RONTXT, NOTAVL, KBTX, MNFLGS, HNBPC 

GLOBL DELSPC, MNBASE, MNTOP, MONHD, MONARl, NOPMGN, PMBUSY, M0NAR2 

GLOBL NSWPMS, MAXMTX, CURHTX, CHKDLM, SPLHD, AMBOPT, INVOPT 

GLOBL DEVIDL, COAL, ALDEX, COAD, SPACTV, SPWFM, DEVIDL, SPSNG 

GLOBL COAL, ALDEX, ALDBLK, COAD, SPACTV, SPWFM, DEVIDL 

GLOBL SPSNG, SPFUL, SPCF, SPFLK, NOFIL, SPGEMT, NOOPTT 

GLOBL BDLIN, MSGBUF, MSGEND, NOTON, GAGMSG 

GLOBL LINFRE, DJABMS, DLMSG, INVTIM, DMT ALL 

GLOBL SHTMSG, AUTHFN, SPLACT, DOSTOP, OFFEMT, KILEMT. UPTMMS 

GLOBL TMTOTH, DIVSOR, TMTOTL, PRTPCT, SUMl, SUM2, SUM3, SUM4 

GLOBL SUMS, SUM6, SUM7, OTHRON, SPLPND, STPASK, SRTSMS 

GLOBL SIZEMT, ASNOVF, INVLDM, CSIMS4, MNTARG, HUPARG, R50TT 

GLOBL KMNNAM, NOKMON, CCLNAM, OTRMNT, CHKDEV, DMTSUB, CMDCCL 

GLOBL SHOHD, SUBTXT, MNTTXT, SRTTXT, TOTMMS, UMSSMS, SSRMAP 

GLOBL TSXSMS, USRMMS, JCXSMS, DZTXT, OCTPRT 

GLOBL PRTR50, PRTDAT, PRTTOD, PRTTIM, INVDEV, ALFN, R50DK 

GLOBL DETHD, DETARG, RUNM3, NOFRDL, R50M0N, INVDAT, MUL32, COAF 

GLOBL AR«PRJ, AR*PRG, AR*C0N, AR*CNT, AR*CPH, AR*CPL, AR*UNM 

GLOBL AR*DMY, AR**SZ, ARNRPB, $SLON, *SLTTY, *SLLET 

GLOBL PRTWRN, SLMXLN, 4iL0FCF, CSHMSG, *CARMN 

GLOBL AF*HIE, AF*WOI, ANOINT, AF*PLK, AF*DBG 

GLOBL AF*IOP, *RNIOP, SHVTXl, SHVTX2, SHVTX3, SHVTX4, SJSPPN 
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4 


000012 


5 


0000 lb 


6 


000040 


7 


000007 


8 


000011 


9 


000014 


10 


000054 


11 


000400 


12 


132500 



LF 


= 


12 


CR 


= 


15 


BLANK 


.-T. 


40 


BELL 


:.~ 


07 


TAB 


:•= 


11 


f-F 


r^ 


14 


COiiMA 


1= 


54 


BLKWDS 


rz 


256. 


WLDNAM 


= 


132500 



LINE FEED 

CARRIAGE RETURN 

ASCII SPACE 

ASCII BELL 

HORIZONTAL TAB 

FORM FEED 

COMMA 

# OF WORDS IN DISK BLOCK 

RAD50 /«/ (WILDCARD) 
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Macro to cause a fatal error message to be printed. 

. MACRO FERR MSfi 

MOV R5, -<SP) 

MOV MSO, R5 

CALL FPRINT 

MOV (SP)+, H5 

. ENDM FERR 



Matro to print a fatal error message* clean up 
and then jump to RDCMD. 



. MACRO FABORT 

MOV MSG, R5 

JhP FKILL 

. ENDM FABORT 



MSG 



Macro to print a uarninp meiisagB 

. MACRO FWARN MSO 

MOV R5, -<SP) 

MOV MSG, R5 

CALL PRTWRN 

MOV (SP)+, R5 

. ENDM FWARN 



Macro to start a standard option table. 

Name ■-■ 1 to 4 character table name. 

NA = Number of arguments per table entry. 



NARGS 



NAME'HD: .WORD 
. ENDM 



. MACRO TQLDEF NAME, NA 

NA 
. CSECT CMDVSH 

2#NA 

TBLDEF 



Macro to enter an option text name and a set of parameters 

into the currently open table. 

STRNG = Ascii name 

A, B, C ~ Set of option parameters to store in table with name. 



. MACRO CMDDEF STRNG.. A, B. C 
. CSECT NAMESH 



l. 





. ASCIZ 


/STRNG/ 








. CSECT 


CMDVSH 








. WORD 


L 




> 




. WORD 


A 






. I IF 


GE, <NAR0S-2> 


. WORD 


B 


. I IF 


GE, <NARGS-3> 


. WORD 


C 




. ENDM 


CMDDEF 







; POINTER TO NAME STRING 
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58 






59 






60 






61 






63 






63 






64 






65 






66 






67 






68 






69 


000000 




70 


000002 




71 


000006 




72 


000012 




73 


000016 




74 


000022 




75 


000026 




76 


000032 




77 


000036 




78 


000042 




79 


000046 




ao 


000052 




ei 


000056 




82 


000062 




S3 


000066 




84 


000072 




85 


000076 




86 


000102 




87 


000106 




88 


000 1 1 2 




89 


000116 




90 


000122 




91 


000126 




92 


000132 




93 


000 1 36 




94 


000142 




95 


000146 




96 


000152 




97 


000156 




98 


000162 




99 


000166 




100 


000172 




101 


000176 




102 


000202 




103 


000206 




104 


000212 




105 


000216 




106 


000222 




107 


000226 




108 


000232 




109 


000236 




110 


000242 




HI 


000246 




112 


000252 




113 


000256 




114 


000262 



Macro to end a set of table entries. 



. MACRO 


TBLEND 


. CSECT 


CMDVSH 


. WORD 





. CSECT 


TSKSHO 


. ENDM 


TBLEND 



Define options for SHOW command 

TBLDEF SHO> 1 

CMDDEF ALL, SOP ALL 

CMDDEF ALLO*CATE, SOPALC 

CMDDEF ALLO*CATIOWS, SOPALC 

CMDDEF AS#SIGNS, SOP ASM 

CMDDEF CA#CHE, SOPCSH 

CMDDEF C#0NFIGURAT10N, SOPCOM 

CMDDEF CL, SOPCL 

CMDDEF COM-»MANDS> SDPCHD 

CMDDEF COR*TIM, SOPCTM 

CMDDEF CI, SOPCL 

CMDDEF D#EVICES, 50PDEV 

CMDDEF DA«TE, SOPDAT 

CMDDEF E«RRORS> RDCMD 

CMDDEF H*IPRCT. SOPHIO 

CMDDEF I NS*TALL, SOP I NS 

CMDDEF INT#IOC,SOPIIO 

CMDDEF J*OBS, SOPJOB 

CMDDEF KEY*S, SHDKEY 

CMDDEF LD, SOPSUB 

CMDDEF M-«-EMORY, SOPMFM 

CMDDEF MAXMC> SOPMC 

CMDDEF MAXMRB, SOPMR 

CMDDEF MAXMSG> SOPMB 

CMDDEF MO#UNTS, SOPMNT 

CMDDEF N#UMDC, SOPNDC 

CMDDEF PR I *0R J, TY, SOPPR I 

CMDDEF PRIL-K-OW, SOPPLO 

CMDDEF PRIH«I, SOPPHI 

CMDDEF PRID*EF, SOPPDF 

CMDDEF PRIV*ILEGES, SOPPRV 

CMDDEF PRIVIR, SDPPVR 

CMDDEF Gl*UEUE, SOPOUE 

CMDDEF QUANO, SOPQO 

CMDDEF QUAN1,S0PQ1 

CMDDEF QUAN1A> SOPGIA 

CMDDEF QUANIB, SOPGIB 

CMDDEF QUANIC, SOPGIC 

CMDDEF QUAN2, S0PQ2 

CMDDEF QUAN3, S0PQ3 

CMDDEF REG#IDNS,SOPREG 

CMDDEF RUN*-TIMES, SOPSRT 

CMDDEF S*U3SETS, SOPSUB 

CMDDEF SL#E, SOPSLE 

CMDDEF SP*00L, SOPSPL 

CMDDEF SYSP^i-ASSWORD, SOPSYP 



€ 

I 

< 
4 

i 
t 
i 
f 
i 
i 
i 
I 

4 
i 
i 
i 
i 



SKSHO - 


— Keyboarrd 


SHOW Comman 


115 


000266 




■* 1 £ 


000272 




117 


000276 




lis 


000302 




119 


000306 




120 


000312 




121 


000316 




122 


000322 
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CMDDEF T-»ERMINALS> SOFTRM 

C. MDnFF T I -HME , SOF' T 1 H 

CMDDEF TT-»-Y, SOPTRM 

CMDDEF USE, SOPUSE 

CMDDEF USERS, SOP JOB 

CMDDEF VE»RSION, SOPVER 

CMDDEF VM, SOPVM 
TBLEND 



TSKSHQ — Keyboard 
Data areas 



3 






4 






5 


000000 


07 5250 014644 




000006 


100020 


6 


000010 


000000 


7 


000012 


000000 


S 


000014 


012276 


9 


000016 


000000 


10 


000020 


000000 


11 
12 
13 


000022 


000000 






14 






15 






16 






17 


000024 


015340 


18 


000026 


016420 


19 


000030 


015100 


20 


000032 


015126 


21 


000034 


062170 


22 


000036 


012500 


23 


000040 


063200 


24 


000042 


066300 


25 


000044 


1 t 4700 
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. SBTTL Data area<i 

j Data areas 

000000 HANNAM: . RAD50 /SY ddd TBX/ ;File spec for device handler 

DVEC: . WORD 

DCSR: . WORD 

R50CL0: . RAD50 /CLO/ 

CDBASE: . WORD 

CDDVU: WORD 

CDBASG: . WORD 



; Table of terminal d 


evic e 


typ 


e names. 




; Note, the or 


der of 


th 


p en 


tries in this 


table must match the 


} of the values of th 


e 


CDX$ 


X X 


entries as 


defined in TSGEN. 


CTLNAM: . RAD 50 


/DL / 








; CDX*DL 




. RAD 50 


/DZ / 








i CDXUDZ 




. RAD50 


/DH / 








i CDX*DZ 




. RAD50 


/DHV/ 








i CDX*VH 




. RAD 50 


/PC / 








;CDX$PI 




. RAD50 


/CP / 








; CDX$PC 




. RAD50 


/PP / 








iCDX^PP 




. RAD50 


/QP / 








i CDX*QP 




. RAD50 


/XX / 













order 



I 

c 

( 
( 
< 
t 
i 

i 
< 

< 

i 
€ 
f 
I 

i 
i 
i 
i 
i 
i 



i 
i 
i 
i 



i 
i 

€ 



TSKSHO - 


— Keyboard SHOW 


Command 


BilUW cof 

1 
P 
3 


imand 












4 








5 


000046 


000240 




6 


000050 


004767 


OOOOOOG 


7 


000054 


105713 




S 


000056 


001555 




9 


000060 


012704 


000000 •' 


10 


000064 


004767 


OOOOOOG 


•1 4 

i J. 




•I /-x '-I /i r\ 1 




12 


000072 


000134 




13 








14 








15 








16 


000074 


005704 




17 


000076 


001404 




IS 


000100 






19 


000110 
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. SBTTL SHOW command 



; Process th 


e 


SHOW cor. 


ima 


CMDSHO: MOP 








CALL 




CVTTAB 




TSTB 




@R3 




BEQ 




SOPASM 




MOV 




#SHOHD, 


R4 


CALL 




SEARCH 












JMP 




@(R4)+ 




> 

; Inval id op 


t 


ion 





BDSO: TST R4 

BEQ 1* 

FABORT #AMBOFT 

1*: FABORT #IWVOPT 



CONVERT TABS AND FF'S TO SPACES 

IF NO OPTION WAS SPECIFED WITH COMMAND, 

TREAT COMMAND LIKE "SHOW ASSIGNS" 

POINT TO TABLE OF SHOW OPTIONS 

LOOK UP OPTION 

BR IF INVALID OPTION 

JUMP TO PROCESSING ROUTINE 



Invalid or ambiguous option? 
Br if invalid 
Ambigious option 
Invalid option 
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ALL 



€ 
€ 

I 



3 
4 

5 000120 

6 000124 

7 000132 
3 000136 
9 000144 

10 000150 

11 000156 

12 000162 
1 n nr\r\ i ta 

14 000174 

15 000200 

16 000206 

17 000212 
IS 00«a220 

19 000224 

20 000232 

21 000236 

22 00024-^ 

23 000252 

24 000256 
000264 
000272 
000276 
000304 
000312 

30 000316 

31 000324 

32 000330 

33 000336 

34 000344 

35 000346 

36 000352 

37 000360 

38 000364 

39 000372 

40 000376 

41 000404 

42 000410 
43 

44 
45 

46 000412 

47 000416 



004767 
004767 
004767 

00476/ 

00 47 A 7 
004767 

004767 

004767 

004767 



007610 
005012 
006034 

003474 

001414 
002570 
001050 
01 1556 



25 
26 
27 

29 



004767 011646 



004767 00647^ 



004767 

004767 

032767 
001405 
004767 

004767 

004767 

004767 
000426 



004767 

00042;i 



011374 

010346 

0000000 0000000 

007444 

011030 

011136 

011764 



005566 



48 
49 
50 

51 000420 

52 000420 

53 000424 
54 

55 
56 
57 000426 



004767 
000420 



004466 



, BBTTL 


ALL 


i SHOW AL1_ 




SOP ALL: CALL 


SHOVER 


. PRINT 


#CRLF 


CALL 


SHODEV 


. PRINT 


#CRLF 


CALL 


BHOASN 


. PRINT 


#CRLF 






PRINT 


#GRLF 


CALL 


SHOJOB 


CALL 


SHOTRM 


. PRINT 


#CRLF 


CALL 


SHOCL 


. PRINT 


#CRLF 


CALL 


SHOMEM 


. PRINT 


#CRLF 


CALL 


SHOSPL 


. PRINT 


#CRLF 


. PRINT 


#SUBTXT 


CALL 


SHDSUB 


. PRINT 


#CRLF 


. PRINT 


#MNTTXT 


CALL 


SHOMNT 


. PRINT 


#CRLF 


. PRINT 


#SRTTXT 


CALL 


SHOSRT 


. PRINT 


#CRLF 


CALL 


SHOREG 


. PRINT 


#CRLF 


BIT 


#PO*SYS, PRIVCO 


BEQ 


1* 


CALL 


SHOINS 


. PRINT 


#CRLF 


1*: CALL 


SHOPRV 


. PRINT 


#CRLF 


CALL 


SHOSLE 


. PRINT 


#CRLF 


CALL 


SHOWVM 


BR 


SOPJMP 



004767 004516 



SHOW ASSIGNS 

SOPASN: CALL SHOASN 
BR SOPJMP 

SHOW COMMANDS 

UCLCMD: 

SOPCMD: CALL SHOCMD 
BR SOPJMP 

SHOW CONFIGURATION 

SOPCON: CAL.L SHODEV 



i SHOW VERSION 

; SHOW DEVICES 

iSHOW ASSIGNS 

: SHOW ALLOCATIONS 

i SHOW JOBS 

.; SHOW TERMINALS 

i SHOW CL 

; SHOW MEMORY 

; SHOW SPOOL 

i SHOW SUBSETS 

; SHOW MOUNTS 

; SHOW RUN-TIMES 

i SHOW REGIONS 

(System privilege? 
; Branch i f not 
i SHOW INSTALL 

; SHOW PRIVILEGES 

i SHOW SL 

J SHOW VM <Base> Top and Size) 



; SHOW ASSIGNS 



; SHOW COMMANDS 



J SHOW DEVICES 



TSKSHO — Keyboard SHOW Command 

ALL 
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€ 
C 



53 


000432 


004767 


001156 


59 


000436 


000413 




60 








61 








62 








63 


000440 


004767 


007216 


64 


000444 


000410 




65 








66 








67 








6S 


W.' U/ W T t \W 




004476 


69 


000452 


000401) 




70 








71 








72 








73 


000454 


004767 


003210 


74 


000460 


000402 




75 








76 








77 








78 


000462 


004767 


000606 


79 


000466 


000167 


OOOOOOG 


80 








81 








82 








83 


000472 


004767 


006054 


84 


000476 


000167 


OOOOOOG 


85 








86 








87 








88 


000502 


004767 


002274 


89 


000506 


000767 




90 








91 








92 








93 


000510 


004767 


007302 


94 


000514 


000764 




95 








96 








97 








98 


000516 


004767 


006246 


99 


000522 


000761 




100 








101 








102 








103 


000524 


004767 


010664 


104 


000530 


000756 




105 








106 








107 








108 


000532 


004767 


004256 


109 


000536 


000753 




110 








111 








112 








113 


000540 


004767 


011146 


114 


000544 


000750 







CALL 


SHOTRM 




BR 


SOPJMP 


; SHOW 


DATE 




SOPDAT: 


CALL 


SHODAT 




BR 


SOPJMP 


i SHOW 


DEVICES 




SQPDEV: 


CALL 


cjunncri J 

1^1 tV^4./l«. V 




BR 


SOPJMP 



i SHOW TERMINALS 



SHOW JOBS 



SOP JOB: 


CALL 


SHDJOB 




BR 


SOPJMP 


i SHOW 


MEMORY 




SOP MEM: 


CALL 


SHOMEM 


SOPJMP: 


.MP 


RDCMD 


i 

i SHOW 


ALLOCATIONS 


SOPALC: 


CALL 


SHOALC 




JMP 


RDCMD 


; SHOW 


CL 





SOPCL: 



CALL 
BR 



SHOW INSTALL 



50PINS: 



CALL 
BR 



SHOCL 
SOPJMP 



SH0IN3 
SOPJMP 



; SHOW 


MOUNTS 




SOPMNT; 


CALL 


SHOMNT 




BR 


SOPJMP 


; SHOW 


PRIVILEGES 


SOPPRV: 


CALL 


SHOPRV 




BR 


SOPJMP 


i SHOW 


QUEUE 




SOPQUE: 


CALL 


SHOQUE 




BR 


SOPJMP 


; SHOW 


RUN-TIMES 


SOPSRT: 


CALL 


SHOSRT 




BR 


SOPJMP 



; SHOW DATE 



SHOW DEVICES 



; SHOW JOBS 



i SHOW MEMORY 



i SHOW ALLOCATIONS 



> SHOW CL 



i SHOW INSTALL 



>SHOW MOUNTS 



SHOW PRIVILEGES 



i SHOW QUEUE 



; SHOW RUN-TIMES 



rSKSHO ■ 


— Keyboard SH(3i.iJ 


Command 




ALL 






1J5 








116 








117 








US 


000546 


004767 


010762 


119 


000552 


000745 




120 








121 








122 








123 


000554 


004767 


011614 


124 


000560 


000742 




123 








126 








127 








128 


000562 


004767 


010110 


129 


000566 


000737 




130 








131 








132 








133 


000570 


004767 


011330 


134 


000574 


000734 




135 








136 








137 








138 


000576 


004767 


011212 


139 


000602 


00073.1 




140 








141 








142 








143 


000604 


004767 


000432 


144 


000610 


000726 




145 








146 








147 








148 


000612 


004767 


000776 


149 


000616 


000723 




150 








151 








152 








153 


000620 


004767 


007074 


154 


000624 


000720 




155 








156 








157 








158 


000626 


004767 


007 1 56 


159 


000632 


0007 1 5 




160 








161 








162 








163 


000634 


004767 


007074 


164 


000640 


000712 
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i SHOW 


SL 




SOPSLE: 


CALL 


SHOSLE 




BR 


SOPJMP 


i SHOW 


VM 




SDPVM: 


CALL 


SHOWVM 




BR 


SOPJMP 


i SHOW 


REGIONS 




> 

SOPREG; 


CALL 


SHOREG 




\m 


SOPJMP 


> 

i SHOW 


SUBSETS 




> 

SOP SUB: 


CALL 


SHOSUB 




BR 


SOPJMP 


i SHOW 


SPOOL 





SOPSPL: 



CALL 
BR 



SHOSPL 

€■5 



SHOW SYBPASSWORD 



SOPSVP: 

SHOW 
SOPTRM: 



CALL 
BR 



SHOSYP 
SOPJMP 



TERMINALS 



CALL 
BR 



SHOW TIME 



SOPTIM: 

i SHOW 
SOP USE: 



CALL 
BR 

USE: 

CALL 
BR 



SHOW VERSION 

SOPVER: CALL 
BR 



SHOTRM 
SOPJMP 



SHOT I M 
SOPJMP 



jHOUSE 
jOPJi-iP 



SHOVER 
SOPJMP 



; SHOW SL 



i SHOW VM 



; SHOW REGIONS 



i SHOW SUBSETS 



i SHOW SPOOL 



i SHOW SYSPASSWORD 



.; SHOW TERMINALS 



i SHOW TIME 



i SHOW USE 



,; SHOW VERSION 
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ALL 



3 
4 


000642 


016705 


OOOOOOG 


5 


000646 


000427 




6 








7 









9 


000650 


016705 


OOOOOOG 


10 

1 1 


000654 


000424 




12 








13 








14 


000656 


016705 


OOOOOOG 


15 


000662 


000421 




.1. 1 ) 
17 








18 








19 


000664 


016705 


OOOOOOG 


20 


000670 


000416 




21 








22 








23 








24 


000672 


016705 


OOOOOOG 


25 


000676 


000413 




26 








27 








28 








29 


000700 


016705 


OOOOOOG 


30 


000704 


000410 




31 








32 








33 








34 


000706 


016705 


OOOOOOG 


35 


000712 


000405 




36 








37 








38 








39 


000714 


016705 


OOOOOOG 


40 


000720 


000402 




41 








42 








43 








44 


000722 


016705 


OOOOOOG 


45 


000726 






46 


000734 


004767 


OOOOOOG 


47 


000740 






43 


000746 


000167 


OOOOOOG 


49 








50 








51 








52 


000752 


016705 


OOOOOOG 


53 


000756 


000763 




54 








55 








56 








57 


000760 


016705 


OOOOOOG 



SHOW MAXMSG 

SOP MB: MOV 

BR 

SHOW MAXMC 
SOPMC: 

i SHfJW 



VM.XMSG, R5 
SHOVAL 



SOP MR; 



MOV 


VMAXMCRS 


BR 


SHOVAL 


MAX MRS 




MOV 


VMXMRB, R5 


BR 


SHOVAL 



5H0W QUA NO 



SOP 00: 


MOV 


VQUANO. 


R5 




BR 


SHOVAL 




i SHOW 


(SUANl 






SDPQl: 


MOV 


VQU AN i, 


R5 




BR 


SHOVAt 




; SHLty 


QUANIA 






GOPQIA: 


MOV 


VaUNlA. 


R5 




BR 


SHOVAL 




■> SHOW 


QUANIB 






SOPOIB: 


MOV 


VQUNIB, 


R5 




BR 


SHOVAL 




; SHOW 


OUANIC 






SOPQIC: 


MOV 


VQUNIC, 


R5 




BR 


SHOVAL 




i SHOW 


0UAN2 






S0PQ2: 


MOV 


VQUAN2, 


R5 


SHOVAL: 


. PRINT 


#SPACE3 




CALL 


PRTDE<: 






. PRINT 


ttCRLF 






.MP 


RDCMD 





SHOW «UAN3 



SDPQ3: 


MOV 


V0UAN3, Rf 




BR 


SHOVAL 


i SHOW 


CORTIM 




GOPCTM: 


MOV 


VCORTM. Rl 



■> Get value 



i GET VALUE 



Print 3 spaces 



; Get QUAN3 value 
; Display it 



TSKSHD - 


— Keyboard SHOW 


Command 




ALL 






53 


000764 


000760 




59 








60 








61 








62 


000766 


016705 


OOOOOOG 


63 


000772 


000755 




64 








65 








66 








67 


000774 


016705 


0000000 


6S 


001000 


000752 




69 








70 








71 








72 


00 i 002 


016705 


OOOOOOG 


73 


00 1 006 


000747 




74 








75 








76 








77 


001010 


116705 


OOOOOOG 


73 


001014 


000744 




79 








80 








81 








32 


001016 


116705 


OOOOOOG 


33 


001022 


00074.1 




84 








85 








86 








87 


00 1 024 


1 1 6705 


OOOOOOG 


83 


001030 


000736 




89 








90 








91 








92 


001032 


1 1 6705 


OOOOOOG 


93 


001036 


000733 




94 








95 








96 








97 


001040 






98 


001046 


116105 


OOOOOOG 


99 


001052 


004767 


OOOOOOG 


100 


001056 






101 


001064 


116705 


OOOOOOG 


102 


001070 


004767 


OOOOOOG 


103 


001074 






104 


001102 






105 


001110 


116705 


OOOOOOG 


106 


00U14 


004767 


OOOOOOG 


107 


001120 






108 


00 1 1 26 






109 


001134 


116705 


OOOOOOG 


110 


00U40 


004767 


OOOOOOG 


1 1 1 


001144 






1 1 2 


001152 


000167 


OOOOOOG 


1 J 3 
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BR 


GHOVAL 


; SHOW 


liNit IOC 




SOP 1 10: 


MOV 


VINTIO, R5 




BR 


SHOVAL 


J SHOW 


HIPRCT 




SOPHIO: 


MOV 


VHIPCT, R5 




im 


«unuAi 



5H0W NUMDC 



30PNDC : 



MOV 
BR 



NUMDC D, R5 



SHOW PR I LOW 

SDPPLD: MOVB 
BR 

SHOW PR I HI 

SOPPHI: MOVB 
IJR 

SHOW PRIDEF 

SOP PDF: MOVB 
BR 

SHOW PR I VI R 

SOPPVR: MOVB 
BR 



VPRILO, R5 
SHOVAl... 



VPRIHI, R5 
SHOVAL 



vpridf,r; 

SHOVAL 



VPRIVR. R5 
SHOVAL 



114 



; SHOW PRIORITY 

SOPPR I: . PR I NT #TM*PR 1 

MOVB LPRI(R1),R5 

CALL PRTDEC 

. PRINT #TM*PR2 

MOVB MXJPRI,R5 

CALL PRTDEC 

. PRINT ttCRLF 

. PRINT #TM«LPR 

MOVB VPRILO, R5 

CALL PRTDEC 

. PRINT #CRLF 

. PRINT #TM*HPR 

MOVB VPRIHI,R5 

CALL PRTDEC 

. PRINT #TM*HPE 

JMP RDCMD 

.: SHLM CA(,:HE 



"Current, priority = " 

GE?t current priority 

Print it 

"i maximum authorized priority = 

Get max author! yed priority 

Print it 

l-Ind of line 

"Low priority range == to " 

Get top of low priority range 

Print the value 

.;"High priority range = " 

.; Get base of high priority range 

J P r i n t it 

.; Fini sh me&&age 
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AL.L. 



11!;> 








116 


001156 


0i6705 


0000000 


U7 


00 1 1 62 


00 1 004 




lis 


001164 






119 


001172 


000421 




120 


001174 


005767 


0000000 


121 


001200 


001004 




122 


001202 






123 


001210 


000412 




124 


001212 






125 


001220 


016705 


000000(? 


126 


001224 


004767 


ooooooe 


127 


001230 






128 


001236 


000167 


0000000 


129 








130 








131 








132 








133 


001242 


004767 


0000000 


134 


001246 


105767 


OOOOOOG 


135 


001252 


001004 




136 


001254 






137 


001262 


000403 




138 


001264 






139 


001272 


000207 





SOPCSH: 


MI3V 


CSHALC. Rb 




BNE 


1* 




. PRINT 


#TM*CNO 




BR 


9$ 


1*: 


TST 


VCSHNB 




BNE 


2* 




. PRINT 


#TM*CDS 




BR 


9* 


2*: 


. PRINT 


#TM*CEN 




MQV 


yCSHNB, R5 




CALL 


PRTDEC 




. PRINT 


#CRLF 


9*; 


JMP 


RDCMD 



SHOW SYSPASSWORD 

SHOSYP: CALL CKSYPV 

TSTB SYPSWD 

BNE 1* 

. PRINT #TM*NSP 

BR 9* 

1*: .PRINT #SYPSWD 

9*: RETURN 



Was caching genned into syBtem? 

Br if yeB 

Caching not genned into system 

ils caching enabled? 

j Br if yes 

^Caching is disabled 

j Data cache size is ... 

; Get current number of blocks for cache 

.;F*rint size of cache 

J Terminate print line 



Make sure user has SYSPRV privilege 

Is there a system password? 

Br if yes 

No system password 

; Print the password 



f 
I 
I 

i 

I 

I 

I 

< 

c 

< 

i 

t 

€ 
I 
< 

i 
I 
< 

I 
i 



TSKSHD 



— Keyboard 
HEMORY 



SHOW Command MACRO V05. 04 Monday 2i~Dec-87 13: O^l Page? 8 



;;BTTL. 



i'-il:-MORY 



4 








5 


001274 


010546 




to 

7 


001276 






S 


001304 


016705 


0000000 


9 


001310 


072527 


177775 


10 


001314 


042705 


160000 


11 
12 
13 


001320 


004767 


1 2002 


001324 






14 


001332 


016705 


0000000 


15 


001336 


062705 


001777 


16 


00134 2 


000241 




17 


001344 


006005 




18 


001346 


072527 


177770 


19 


001352 


004767 


011750 


20 








21 


001356 






22 


001364 


016705 


0000000 


23 


001370 


062705 


000007 


24 


001374 


072527 


177775 


25 


001400 


004767 


011722 


26 


001404 


010546 




27 








2S 


001406 






29 


001414 


016705 


0000000 


30 


001420 


166705 


0000000 


31 


001424 


005305 




32 


001426 


062605 




33 


001430 


004767 


011672 


34 








35 


001434 






36 


001442 


016705 


OOOOOOG 


37 


001446 


062705 


000007 


38 


001452 


072527 


177775 


39 


001456 


004767 


011644 


40 








41 


001462 






42 


001470 


016705 


OOOOOOG 


43 


001474 


062705 


000007 


44 


001500 


072527 


177775 


45 


001504 


004767 


011616 


46 








47 


001510 






^8 


001516 


016705 


OOOOOOG 


49 


001522 


062705 


000007 


50 


001526 


000241 




51 


001530 


006005 




52 


001532 


072527 


177776 


53 


001536 


004767 


011564 


54 








55 


001542 






56 


001550 


016705 


OOOOOOG 


57 


001554 


166705 


OOOOOOG 



> SWIM MEMORY 

i 

SHOMEM: MOV R5, -<i.P) 
i Total installed memorii 

.PRINT #TOTMMS 

MOV 

ASH 

BIC 



bi 2e 



PHYMEM. R5 
#-3, R5 
#160000. R5 

PRTKB 

of unmapped system 
.PRINT #UMSSMS 



MOV 
ADD 

CL,.C 

mm 

ASH 
CALL 



UMSYTP, R5 
#1777, R5 

R5 

#~8. , R5 

PRTKB 



TOTAL MEMORY 

Get total # 64--byte blocks of memory 
Convert to # 512-byte pages 
Kill possible sign extension 
DISPLAY THE VALUE 
unmapped handlers 

SIZE OF UNMAPPED PORTION OF SYSTEM 
GET ADDRESS OF TOP OF TSX 
BOUND UP TO KB 
CVT TO # PAGES 



b 1 z e 



of mapped 
.PRINT #SSRMAP 



sy stem 



retti on! 



Total 



MOV 

ADD 

ASH 

CALL 

MOV 

TS.X-Plub size 
. PRINT #TSXSMS 
MOV L0MAP,R5 
SUB 



SMRSIZ, R5 
#7, R5 
#-3, R5 
PRTKB 
R5, -<SP) 



BASMAP, R5 
DEC R5 
ADD (SP)+, R5 
CALL PRTKB 

Mapped handlers 

. PRINT #MHNSMS 
MOV MHNSIZ>R5 
ADD #7, R5 
ASH #-3, R5 
CALL PRTKB 

Shared run-time systemB 
.PRINT #SRTSMS 



Data 



Use?' 



MOV 

ADD 

ASH 

CALL 

cache 

. PRINT 

MOV 

ADD 

CLC 

ROR 

ASH 

CALL 

memory 

. PRINT 

MOV 

SUB 



SRTSIZ,R5 
#7, R5 
#-3, R5 
PRTKB 
buffers 
#CSHMSG 
CSHSIZ, R5 
#7, R5 

R5 

#-2.- R5 
PRTKB 
space 
#USRMMS 
HI MAP.. R5 
LOMAP, 1^5 



■> DISPLAY VALUE 

;SIZE OF SYSTEM MAPPED REGION 

.: # 64~byte blocks for mapped regions 

; Round up 

; Convert to 512-byte block units 

i SAVE MAPPED REGION SIZE 

TSX SIZE 

PAGE AT TOP OF TSX 

# PAGES FOR TSX AND HANDLERS 

i ADD MAPPED REGION SIZE 



Size of mapped handlers 

# 64-byte blocks for mapped handlers 

Round up 

Convert to 512-bqte block units 



SIZE OF SHARABLE RUN-TIME SYSTEMS 

# 64-byte blocks for shared run-times 

Round up 

Convert to 512~bute block units 



Size of data cache 

# 64-byte blocks for data cache 

Round up 

Clear carry to convert to 512 byte 
block units without sign extension 
in case cache >=--2Mb < 100000 64bytes) 



i USER MEMORY SPACE 



TSKSHO - 




ard SHOW 


Command 


58 


001560 


004767 


011542 


59 








60 


001564 






61 


001572 


016705 


OOOOOOG 


62 


001576 


005205 




63 


001600 


004767 


011522 


64 


00 1, 604 


004767 


011416 


65 


001610 


01 260 '3 




66 


001612 


000207 





"londay 21"Dec-S7 13:04 f'ac|(> S-1 



CALL PRTKB 

Job context area siz e 

.PRINT #JCXSMS iSlIE OF JOB CONTEXT AREA 

MOV viCXPGS, r;.' 

INC R5 i ROUND UP 

CALL PRTS^.B 

CALL DSPMEM j SHOW JOB HEMDRY LIMITS 

MOV (SF)+, R5 

RETURN 



I 
< 
I 
i 
I 

« 
t 

1 

i 

I 



TSKSHO — 



iA e y D o a r 
:RMiNALS 



3 
4 

5 001614 

6 00 1 6 i 6 

7 001620 

8 001622 

9 001624 
10 

11 

1 iv. 

13 001626 

14 001634 

15 00164;.i 
16 

17 
18 
19 
20 
21 



24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



00 
00 
00 
00 
00 



00 
00 
00 
00 



00 
00 
00 
00 
00 
00 
00 



1 634 
166:-? 
1 664 
1 672 
1 674 



1 700 
1702 
1704 
1710 



1 7 1 4 
1720 
1 724 
1730 
1732 
1734 
1744 



001752 
001756 
001762 
001764 
001770 
001774 
001776 
002002 
002010 



SHOW Command MACRO V05. 04 Monday 21-Dec-S7 13:04 Paqe 9 

. SBTTL . TLRMINAl S 
i Display information about terminalB. 



010146 
010246 
010346 
010446 
010546 



032761 
00 1 406 
032767 
001402 
000167 



010101;) 
00620'J 
012703 
004767 



1 1 6700 
1 1 6000 
012703 
020100 
001005 

005303 



SHOTRM: MOV 
MOV 
MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R2, -(SP) 
R3, -<SP) 
R4, -(SP) 
R5, -(BP) 



012703 
120167 
001425 
1 2703 
020127 
101020 
012703 
032761 
001412 



P T ;i n t h £? a d i n " i i n i? k 



. PRINT #CRLF 
. PRINT #TRMHD1 
. PRINT #TRMMD2 



; Print a blank line 
i Head ing 1 ine 1 
.: Hpad ing 1 ine 2 



001650 012701 000002 



Begin loop to print info for each terminal 

MOV #2. Rl iQet first terminal index number 

If we are on a pro> do not display info about uninstalled lines 



OOOOOOG 000000(3 
OOOOOOG OOOOOOG 
001036 



1*: 



BIT 
BE (3 
BIT 
BE<3 
JMP 



#*DEAn, LSW3(Ri) ;I5 this line installed? 



33* 

#CW*PRO. C0iMrG2 

33* 

30* 



Display unit number 



33*: 



000002 
OOOOOOG 



OOOOOOG 
OOOOOOG 
000004 



MOV 


R1,R5 


ABR 


R5 


MOV 


#2> R3 


CALL 


PRTFIX 



i Br i f yes 

j Are we running on a pro? 

i Br if not 

> Go check next line 



; (jet terminal index # 
.: Convert to unit # 
.; Print using 2 columns 
i Print unit number 



Print "K" if this is thf current line 



001746 004767 OOOOOOG 



15*; 



MOVE 


CORUSR, RO 




MOVE 


LNPRIM(RO), 


!K) 


MOV 


#4, R3 




CMP 


R1,R0 




BNE 


15* 




. TTYOUT 


#'■«■ 




DEC 


R3 




CALL 


PRT3PC 





.; (Set current job index # 

j Get primary line # 

; Set to print 4 spaces 

i Is this our line? 

i Br if not 

; E'lag our 1 ine 

.; Print only 3 more spaces 

.; P r i n t spaces 



1 

€ 
t 

I 
I 
I 

f 
t 

< 
f 
< 

i 
I 
4 
4 



Display type of terminal 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG OOOOOOG 



Assume this is operator's console 

Is this operator's console?' 

Br if yes 

Assume this is a CL line 

Is this a CL line? 

Br if yes 
; Assume this is a local terminal 
#*PHOME, U.3W2(R1)J Is this a dial-up terminal? 

.: Br if not dial-up 



MOV 


#OPRTXT.. R3 


CMPB 


R1,CTRLTT 


BE(3 


2* 


MOV 


#CLLINE. R3 


CMP 


Rl, ttLSTi'l 


BHI 


2* 


MOV 


#LCLTXT, R3 


BIT 


#*PHOME, U. 


BE(>S 


2* 



SKSHO - 


-~ Keyboard EiHOW 

TERfllNALS 


Command MACRO VO 


5. 


58 


002012 


032761 


0000000 0000000 


59 


002020 


001404 




60 


002022 


032761 


0000000 0000000 


61 


002030 


00 1 402 




62 


002032 


012703 


0000000 17* 


63 


002036 




2*: 


64 










6 b 










66 










67 


002042 


016100 


0000000 


6S 


002046 


n 1 junnn 

X^ ^ U.J -u/ ^-1- *••■ 


0QQQ24 ' 


69 


002052 


004767 


0000000 


70 


002056 


016105 


0000000 


71 


002062 


1 6 1 04 


0000000 


72 


002066 


001007 




73 






'/ 


74 


002070 


012703 


000004 


75 


002074 


004767 


000000<5 


76 


002100 


016105 


OOOOOOG 


77 


002104 


000420 




78 






i 


79 


002 1 06 




':h : 


SO 


002116 


016105 


0000000 


81 


002122 


012703 


000002 


82 


002126 


004767 


OOOOOOG 


83 


002132 


012703 


000001 


84 


002136 


004767 


OOOOOOG 


85 


002142 


016405 


OOOOOOG 


86 


002146 


012703 


000003 4*: 


87 


002152 


004767 


OOOOOOG 


88 


002156 


012703 


000002 


89 


002162 


004767 


OOOOOOG 


90 










91 










92 










93 


002166 


0161 04 


OOOOOOG 


94 


002172 


001003 




95 






t 


96 


002174 


016102 


OOOOOOG 


97 


002200 


000402 




98 






r 


99 


002202 


016402 


OOOOOOG 10$ 


100 


002206 


004767 


OOOOOOG 11* 


101 


002212 


012703 


000002 


102 


002216 


004767 


OOOOOOG 


103 










104 










105 










106 


002222 


004767 


OOOOOOG 


107 


002226 


012703 


000002 


108 


002232 


004767 


OOOOOOG 


1 ()'■■? 










110 










111 










112 


002236 


032761 


OOOOOOG OOOOOOG 


113 


002244 


001413 




1 1 4 


002246 


00 5 '76 I 


OOOOOOG 
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BIT ttflNIT.. L5W<i<l > i Is line in use nouiT' 

BEQ 17$ ; Print "PHONE" if inactive dial-up line 

BIT #*CARMN.. LSW',.7<H1 ) ils line being used as dial-up? 

BfcrO 2* J Print "LOCAL" if active but no carrier 

MOV #REMTXT, R3 ilhis is a remote terminal 



. PRINT R3 i Print type 

Di&play vector address and DL./DZ type 



LCDTYP<R1)>R0 
rn MAM/ fjn \ . nf\ 

PRTR50 

LMXLN(R1 ). R5 
LMXNUM(R1)>R4 
3$ 



MOV 

MOV 

CALL 

MOV 

MOV 

BWE 
Ihis is not a mux line 

MOV #4, R3 

CALL PRTSPC 

MOV INVEC<R1>,R5 

BR 4$ 
This is a mux line 

, TTYOUT #'" 

MOV LMXLN<R1), Rt' 

MOV #2> R3 

CALL PRTFIX 

MOV #1,R3 
PRTSP(; 

MXVEC<R4), R5 
#3, R3 
OCTFIX 
#2, R3 
PRTSPC 



CALL 

MOV 

MOV 

CALL 

MOV 

CALL 



J Get device type code for this line 

; Get RAD50 name of controlling device 

j Print the device name 

i Get line # within mux 

i Get mux index number 

; Br if this is a mux line 

; Print 4 spaces 

; Get input vector address 



J Put in hyphen 

; Get line # within the mux 

iPrint in 2 column field 

; Print line number 

> Print i space 

Get D2-11 interrupt vector address 
Print 3 digits 
Print vector address 
Print 2 spaces 



Print address of Control Status Register <CSR) 



MOV LMXNUM<R1 ), R4 

BNE 10$ 

Thir;. is a DL 11 lint? 

MOV RSR<R1).R2 

BR 11$ 

This is a DZ-11 line 
: MOV MXCSR<R4),R2 
: CALL OCTPRT 

MOV #2. R3 

CALL PRT9P(; 



; Get mux index number 
>Br if D2-11 



Get address of receiver status register 



Get address of CSR 
Print the address 
Print 2 spaces 



Print information about terminal type 



CALL 
MOV 

CALL 



PRTTTP 

#2>R3 

PRTSPC 



; Print terminal type 
; Print 2 spaces 



F'rint information about r.peed 

B I T #$ AUTO, I LSW2 ( R 1 ) 

BEO 24$ 

TST LCLUNT(R1 ) 



Is autobaud specified for this line? 

Br if not 

Is this line being used as a CL unit? 



I 
I 
I 

i 
I 

I 
i 

€ 
€ 

€ 

i 

€ 
€ 

I 
I 
< 

i 



TSKBHD ■ 


- Key bo 

TuRnlNA 


ard 5HDW 
i.J-5 


Command HACRO V 


115 


002252 


002010 




i 116 


002254 


032761 


0000000 OOOOOOG 


117 


002262 


001004 




118 


002264 






i 119 


002272 


000424 




120 


002274 


016103 


0000000 


121 


002300 


000303 




i 122 


002302 


042703 


177760 


123 


002306 


001004 




124 


002310 






t 125 


002316 


000412 




126 


002320 


070327 


000005 


127 


002324 


062703 


OOOOOOG 


t 128 


002330 


012704 


000005 


129 


002334 


112300 




130 


002336 






i 131 


002342 


077404 




132 


002344 






! 133 








1 1 134 

•i '1 '--'v 








1 J V ' 

\ 136 


002354 


116103 


0000010 


I 137 


002360 


032703 


OOOOOOG 


138 


002364 


001005 




139 


002366 






< 140 


002376 


000404 




i--^! 


002400 






l 42 


002410 


032703 


OOOOOOG 


' i 143 


0024 14 


001005 




144 


002416 






145 


002426 


000414 




€ 146 


002430 


032703 


OOOOOOG 


147 


002434 


001005 




143 


002436 






€ 149 


002446 


000404 




1 150 


002450 






151 


002460 


012703 


000004 


i 152 


002464 


004767 


OOOOOOG 


153 








154 








< 155 








156 


002470 


0127-03 


OOOOOOG 


157 


0024 74 


032761 


OOOOOOG OOOOOOG 


* 158 


002502 


001035 




1 159 


002504 


016105 


OOOOOOG 


1 160 


002510 


002012 




' < 161 


002512 


020127 


OOOOOOG 


162 


002516 


101027 




163 


002520 


032761 


OOOOOOG OOOOOOG 


i 1 64 


002526 


001423 




165 


002530 


012703 


OOOOOOG 


166 


002534 


000420 




' i 167 


002536 


006205 




168 


002540 


020527 


000007 


169 


002544 


101406 




i 1 70 


002546 


162705 


000010 


1 7 1 


00255::: 







Monday 21~Dec-37 13:04 Patje 9- 



24*: 



5*: 



6$: 



BGE 

BIT 

HNE 

. PRINT 

BR 

MOV 

SWAB 

BIG 

ONE 

. PRINT 

BR 

MUL 

ADD 

MOV 

MOVB 

. TTYOUT 

SOB 

. TTYOUT 



24* 

#*DILUP.. LSW 

24* 

#TM*AUT 

7* 

LMXPRM<R:) ), 

R3 

#177760, R3 

5* 

#NATXT 

■7<fc 

f f 

#5, R3 

#SPDTX1. k3 
#5, R4 
(R3)+, RO 

R4, 6* 
#40 



.: Br :i f yes — No autobaud for CL 
<R1) ; Is a job active on this line? 

i Br if yes — speed is knoun if job on 
; Print "auto" 

R3 ; Get line parameters for mux line 
.; Right justify speed code 
> Clear all but speed code 
; Br if we know the speed 
; Print "N/A" 



Values are stored 5 characters each 

Point to text string 

Print 5 characters 

Get next char of speed 

Print it 

Loop till all printed 

Print a space 



7*: 

i 

•> Print information about character length and parity 



28*: 



?9*: 



32*: 
31*: 



MOVB 

B 1 1 

BNE 

. TTYOUT 

OR 

. TTYOUT 

BIT 

BNE 

. TTYOUT 

BR 

BIT 

BNE 

. TTYOUT 

BR 

. TTYOUT 

MOV 

CALL 



LMXPRM+KRl), R3 

#LP*7BT, R3 

27* 

#'8 

28* 

#'7 

#LP*PAR, R3 

29* 

#'N 

31* 

#LP*ODD, R3 

32* 

#'E 

31* 

#'0 

#4, R3 

PRTSPC 



Get line parameter flags 
7 bit characters wanted? 
Br if yes 
Say length is 8 bits 

i Say length is 7 bits 

.: Parity wanted? 

i Br if yes 

; Say no parity 

; Odd parity wanted? 

j Br if yes 

.; Say even parity 

; Say odd parity 
; Pr int 4 spaces 



i Indicate if line is active now 



16*: 



MOV #NOTXT. R3 

B I T #*DEAD, LSW3 < R 1 ) 

BNE 12* 

MOV LCLUNT<R1)>R5 

BGE 16* 

CMP Rl.. #LSTPL 

BHI 12* 

BIT #*INIT, L.SW<Rn 

BEG 12* 

MOV #YESTXT, R3 

BR 12* 

ASR R5 

CMP R5> #7. 

BLOS 34* 

SUB #8. , R5 

. PRINT #TXTC! 



Assume line is not active 
Is line installed? 

if not installed 

a CL unit assigned to this line? 

if yes 

or CL 



Br 
Is 
Br 
I s 
Br 
Is 
Br 



this a real 
if CL line 
line active 
i f n o t 



i ineT-* 



now/ 



text 



Point 

Print yes 

Convert CL unit index to unit number 

Units 0-7 go with CL device 



.; Remove 01 
; Print "CI 



unit bias 



TSKSHO — Keyboard 
TERMINALS 
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€ 



172 

173 

174 

175 

176 

177 

178 

179 

ISO 

181 
1 a-i 

183 
1 84 
185 
186 
187 
18S 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
:i99 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 

214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 



002560 000403 



002570 
002574 



002': 



to 



002606 



002620 
002622 
002630 
002632 
002656 
002640 
002642 
002644 

\~' -w* c:- w.' i^\,' 

002652 
002656 
002660 
002664 
002666 
002674 
002676 
002702 
002704 
002712 
002714 
002722 
002724 
002730 



002730 
002736 
002742 
002746 

002750 
002 7 5H 
002756 
002762 



002766 
00 2 ■■'70 
002772 
002774 
002776 
003000 



004767 
000402 

012703 
004767 



032761 
001404 

000437 
016105 
001405 
105715 
001403 

00043;2 
016105 
002016 
020127 
1 1 007 
032761 
001415 
004767 
000412 

000406 

006205 
004767 



062701 
020127 
101007 

020127 
001002 
012701 
000167 



012605 
1 2604 
012603 
012602 
012601 
000207 



OOOOOOQ 



000003 
000000<3 



OOOOOOG OOOOOOQ 



OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



OOOOOOG 



000002 
OOOOOOG 

000002G 

OOOOOOG 
176666 



BU 35$ 

34$: . PRINT #TXTCL 

35$: CALL PRTDEC 

BR 25$ 

12$: . PRINT R3 

25$: MOV #3, R3 

CALL PRTSPC 



.; Print "CL" 

:.Print CL unit number 

.; F*r int Yes /No 

i Print 3 i5pr3(:e5 



Print name of user who is u&ing this line 



26$: 



BIT 

BEO 26$ 

. PRINT #NINTXT 

BR 14$ 

MOV LNAME<R1),R5 

BEQ 13$ 

TSTB <R5) 

BEQ 13$ 

.PRINT R5 



13$: 



23$; 
21$: 

14$: 



BR 


30$ 


MOV 


LCLUNT<R1).. R5 


BGE 


21$ 


CMP 


R1>#LBTPL 


BHI 


23$ 


B I T 


#$KINIT,LSW<R1 ) 


BEQ 


14$ 


CALL 


PRTUNi'1 


BR 


14$ 


. PRINT 


ttCLFREL 


BR 


14$ 


. PRINT 


#CLUN1T 


ASR 


R5 


CALL 


PRTDEC 



j Is this lins insitslledT' 
.; Br if line is installed 
; Print Not installed 

Is there a descriptive name for this line? 

Br if not 

Is the line blanh? 

Branch if no line name 

Print asciz name string 

Is this line used as a CL unit? 

Br if yes 

Is this a real or CL line? 

Br if CL line 

Is ,iob logged on? 

Br if not 

Print user's name 

i This is a free CL line 

i Print "CL line " 

; Convert to unit number 

;Print decimal value 



Terminate print line and loop if more lines to print 



30$ 



22$ 



20$: 



. PRINT 


#CRLF 


ADD 


#2, Rl 


CMP 


R 1 , #LSTHl.. 


BHI 


20$ 


CMP 


Rl; #LSTPL+2 


imu 


22$ 


MOV 


ttPSTIOL.. Rl 


: JMP 


1$ 


F i n i s h e d 




: MOV 


<SP >+,;.; 5 


MOV 


(SP)+,^^•'^ 


MOV 


(SP)+, R3 


MOV 


< SP ) +-.. R2 


MOV 


(SP)+, Rl 


RETURN 





Terminate print line 

Advance line index number 

Are there more lines? 

Br if not 

Have me stepped past last real line? 

Br i f not 

Sl<ip up to 1st CL line 

Go display info for next line 
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€ 
I 
C 
I 



3 








4 








5 


003002 


010146 




6 


003004 


010346 




7 


003006 


010446 




8 

a 


003010 


010546 




10 

1 1 
12 








003012 


005727 


0000000 


13 


003016 


001005 




14 


003020 






15 


003026 


000167 


000466 


17 








18 








19 








20 


003032 






21 


003040 


116705 


OOOOOOG 


22 


003044 


004767 


OOOOOOG 


23 


003050 






24 








2 b 








26 








27 


003056 






28 

27 
30 


003064 












;::) i 








32 


003072 


005001 




33 








34 








35 








36 


003074 


010105 




37 


003076 


006205 




38 


003x00 


020527 


000007 


39 


00310'!- 


:i 1 406 




40 


003106 






41 


003114 


162705 


000010 


42 


003120 


000403 




43 


003122 






44 


003130 


004767 


0000000 


45 


003134 


012703 


000002 


46 


003140 


004767 


OOOOOOG 


48 








49 








50 


003144 


016105 


OOOOOOG 


51 


003150 


001412 




52 


003152 


00620;> 




53 


003154 


012703 


000003 


54 


003160 


004767 


OOOOOOG 


55 


003164 


012703 


000003 


56 


003170 


004767 


OOOOOOG 


57 


003174 


000407 





. BB7TL . 0!.. 
Di&piay information about CL units. 



SHOCL : MOV 
MOV 
MOV 
MOV 



R 1 . - < [iP ) 
R3, -diP) 
R4, -<;>P) 
R5, -<rsP) 



See if there are any CL units 

TS7 ttCLTOTL 

Bmi 11* 

. PRINT #TM$CLO 

■JMP 9* 

Th t.-r E' BT B some CL un i t r. . 
Print version number. 

11*: . PRINT #TM*CL7 

MDVB CLVERS, R5 

CALL PRTDEC 

. PRINT #TM*CI..B 

Print heading lines. 

1*: . PRINT #TM*CL1 
. PRINT #TM*CL2 



j Are there any CL, units? 

i Br if yes 

; There are no CL units 



"CL emulating XL version 
Set number to be printed 
Print the decimal value 



; Head ing line 1 
> Head ing 1 ine 2 



Begin loop to print info about each unit. 



CLR Rl 
Print CL unit name 



2'*: 



19$: 
20*: 



MOV 


Rl. R5 


ASR 


R5 


CMP 


R5. #7. 


BLOS 


19$ 


. PRINT 


#TM*C13 


SUB 


#8. , R5 


BR 


20* 


. PRINT 


#TM*CL3 


CALL 


PRTDEC 


MOV 


#2, R3 


CALL 


PRTSPC 



; Init CL unit index number 



Get CL unit index 

Convert to unit number 

Unit # in range 0"-7 get name CL 

i Print " Ci" 

i Remove CI unit number bias 

; Print ■' CL" 
; Print unit # 
; f*r int 2 spates 



I 
4 
< 
I 
( 
< 
I 
C 



Print the number of the arisociated line 



MOV 


CL*LIX(Rl.i,R5 


BEQ 


3* 


ASR 


R5 


MOV 


#3. , R3 


CALL 


P RTF IX 


MOV 


#3. , R3 


CALL 


PRTSPC 


BR 


4* 



; Get associated line number 

; Br if there is no associated line 

.; G e t line # 

iOet print field width 

j Print the line number 

; Print 3 spaces 















TSKSHO - 


~ Keyboard E^HDW 


Command 




58 


003176 








59 


003204 


012703 


000002 




60 


003210 


004767 


000000<3 




61 










62 
63 










64 


003214 


010100 






65 


003216 


004767 


OOOOOOG 




66 


003222 


010005 






67 


003224 


0*) 1411 






68 


003226 


012703 


000003 




69 


00323-2 


004767 


OOOOOOQ 




70 


003236 


012703 


000002 




71 


003242 


004767 


OOOOOOG 




72 


003246 


000407 






73 


00325O 








74 


003256 


012703 


000001 




75 


003262 


004767 


OOOOOOG 




76 










77 
78 










79 


003266 


016705 


OOOOOOG 




SO 


003272 


010100 






ei 


Q032:"l 


006200 






82 


003276 


020027 


000007 




83 


003302 


101404 






S4 


005304 


162700 


000010 




85 


003310 


01«705 


OOOOOOG 




86 


003314 


000300 






87 


003316 


050005 






88 


003320 


012700 


OOOOOOG 




89 


003324 


020027 


OOOOOOG 




90 


003330 


103011 






91 


003332 


020560 


OOOOOOG 




92 


003336 


00 1 403 






93 


003340 


062700 


OOOOOOG 




94 


003344 


000767 






95 
96 
97 


003346 








98 










99 


003354 


005761 


OOOOOOG 




100 


003360 


001445 






101 


003362 


016105 


OOOOOOG 




102 


003366 


012703 


003532 ' 




103 


003372 


005004 






1 04 


00337'-! 


cs^Go:-; 






105 


003376 


001420 






106 


003400 


005704 






107 
lOQ 


003402 

003404 


00 1 004 






109 


003412 


000404 






110 


003414 








111 


003424 


010304 






112 


0034".^. 


■'■ 1 2 4 no 






113 


003430 


001403 






114 


003432 







MACRO V05. 04 



3*: 



nday 21 


~Dec-S7 


. PRINT 


#TM*CL4 


110V 


#2, R3 


CALL 


PRTSPC 



13:0^ Page 10-1 



; Print "none' 



; Print 



2 spaces 



Print number of any ,iob that is using this CL unit 



4*: 



18*: 



MOV 

CALL 
MOV 

J3EQ 

Mn>, ) 
J t\~f < 

MOV 

CALL 

BR 

. PRINT 

MOV 

CALL 



Rl, RO 
CKCLUS 
RO. R5 
IS* 
#3, R3 
PRTFIX 
#2, R3 
PRTSPC 
1 7* 

#TM*CL^) 
#1> R3 
PRTSPC 



Get CL index number 

See if any job is using CL unit 



Get # of job that is 
Br if device is free 
Print in 3 character 
Print the job number 
Print 2 spaces 



; Print "none" 
J Print 1 space 



using the device 

field 



See if this CL unit i ;:■ i-pooled 



17*: 



21*: 



51i; 



6*: 



7*: 



MOV 

MOV 

ASR 

CMP 

BLOS 

SUB 

MOV 

SWAB 

BIS 

MOV 

CMP 

BHIS 

CMP 

BEQ 

ADD 

BR 

. PRINT 



CLDEVX, R5 

Rl, RO 

RO 

RO, #7 

21* 

#8. . RO 

CIDEVX.. Rt' 

RO 

RO, R5 

#SDCB, RO 

RO, #SDCBND 

7* 

R5, SDDVU<RO) 

6* 

#SDCBS2, RO 

5* 

#TM*CL5 



byte 



Get CL device index number 

G(?t CL unit # index 

Convert to unit # 

CL or CI type unit? 

Br if CL 

Remove CI unit bias 

Get CI device index number 

Put unit number in high order 

Combine with device index # 

Point to first SDCB 

Have wp checked all spooled devices? 

Br if yes — This CL unit is not spooled 

Is this SDCB for this CL unit? 

Br if yes — CL unit is spooled 

Point to next SDCB 

J Print "(spooled)" 



Pr:int which options ar^s: selected for this line 



1 5* 



12* 
1 3* 
14* 



TST 


CL*LIX<R1) 


BEG 


10* 


MOV 


CL*OPr<Rl) 


MOV 


#CLOPrB, R3 


CLR 


R4 


B I T 


(R3)+. R5 


3iE0 


16* 


TBT 


R4 


BNE 


12* 


. PRINT 


#TM*C! 6 


BR 


13* 


. TTYOUT 


#54 


MOV 


R3, R4 


MOVB 


<R4)+, RO 


BEG 


16* 


. rTYOUT 





Is this CL unit assigned to a line? 

Br if not — Don't display options 

Get option flags for this CL unit 

Point to option name table 

Say no option names printed yet 

Is this option selected? 

Br if not 

Is this the 1st option? 

Br if not 

Pr:oit " 1" 

Print comma 

Point to option name string 

Get ne:<t char from option name string 

Br if hit end of name string 

Print next char of option name 



SKSHO ■ 


— Key bo 

C i... 


3rd EHDU 


Corn man! 


115 


003436 


0007 73 




116 


003440 


105723 




117 


003442 


0013/6 




118 


003444 


005203 




119 


003446 


042703 


000001 


120 


003452 


020327 


003670 ' 


121 


003456 


103746 




122 


003460 


005704 




123 


003462 


00 1 404 




124 


003464 






125 








126 








127 








128 


003474 






129 








130 








131 








132 


003502 


062701 


000002 


133 


003506 


020127 


OOOOOOC 


134 


003512 


10300;.! 




135 


003514 


000167 


177354 


136 








137 








13B 








139 


003520 


01260'.) 




140 


003522 


012604 




141 


003524 


012603 




142 


003526 


i. 260 ! 




143 


00353;^ 


00020 / 




144 








145 








146 








147 








i4e 








149 








1 50 








151 








152 








153 


003532 






154 


003532 






155 


003542 






156 


003550 






157 


003556 






158 


003572 






159 


003602 






160 


003612 






161 


0G36;*2 






162 


003634 






163 


003644 






164 


003652 






165 


003662 






166 


003670 







MACRO 



;05. 04 


MoTifJay 


21 --Dec -97 13: 




BR 


14$ 


1 6* ; 


TSTB 


(R3) + 




BME 


16$ 




I MC 


R3 




BJC 


#1, R3 




CMP 


R3, #CLOPMD 




BLO 


15$ 




rsT 


R4 




BEQ 


10$ 



F'ui^fc 10- 



. T'l YOUT # '1 
j ' ! e r flfi i n a t e the p r i n t 1 i j i ( • 
10$; . PRINT #CRLF 

See if there are more CI. units 



Loop to print rest of option name 
Search for end of option name 
Loop till end found 
Point to next word 

Checked ail options? 

L o o p if n o t 

Were any options printed? 

Br if not. 

Close option list 



1 

€ 

I 



End of print line 



9$: 



ADD 


#2, Rl 


CMP 


Rl. #2*CL"tOTl 


BHIS 


9$ 


JMP 


2$ 


F i n i s h e d 




MOV 


<SP)+, R5 


MOV 


(SP)+, R4 


MOV 


(SP)+, r;^ 


MCiV 


(SP)4-, Rl 


RETURN 





Advance CL unit index 
Have lije done all CL units? 
Br if ye 5 
Go show info for next unit 



Table of CL option flags and option names 

. MACRO CLDP l-l AO, NAME 

. WORD FLAG 

. ASCIZ /'NfAMFV 

. EVEN 



« 

i 

€ 

< 

4 

i 
€ 



. ENDM 



CLOP 



CLOPTB: 








CLOP 


CO$FF, FORM 




CLOP 


CO$TAB, TAB 




CLOP 


CO$LC, LC 




CLOP 


co$8Bi, E:iornB:n 




CLDP 


CO$LFO. LFOUT 




CLOP 


CO$LFJ, LEIN 




CLOP 


CO$FFO, FORMO 




CLOP 


CO*BNO, BIWnUT 




CLOP 


co$bn;ubinin 




CLOP 


CO$CR, CR 




CLOP 


CO$CTL. CIRL 




CLOP 


CO$DTR. BlU. 


CLOPND: 







I 
i 
i 



i 
i 
I 

c 

€ 

( 
( 
i 
i 

4 
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v/ ■-.-■ CJ 1-.' 

i . SBTT! J(iJi;i 

g i 

J Shot!) information about all jobs. 

i Define /PPN option fov 31 iOW JOBS command 

TBLDEF SJO, 1 
CMDDEF P-«PlNi, O 
TBLEND 



3 








4 
5 








6 








7 


003670 






a 


000326 






9 


000332 






10 








1 1 


Q0367Q 


010146 




12 


003672 


010246 




13 


003674 


010346 




14 


003676 


010446 




If) 


003700 


01054>',( 




16 








17 








18 








19 


003 70;;/ 


10571 :i 




20 


00370 4 


00 1 420 




21 


003706 


121327 


000057 


22 


003712 


ooioi;» 




23 


003714 


005203 




24 


003716 


OJ 2704 


000324 ' 


25 


003722 


004767 


OOOOOOG 


26 


003726 


103004 




27 


003730 






28 


003740 


1 ,1 2767 


00000 1 


29 








30 








31 








32 


003746 


004767 


006726 


33 








34 








35 








36 


003752 






37 


003760 






38 








39 








40 








41 


003766 


012701 


000002 


42 








43 








44 








45 


003772 


032761 


OOOOOOG 


46 


004000 


00 1 002 




47 


004002 


000167 


000624 


48 








49 








50 








51 


004006 


01 01 Of' 




52 


004010 


004767 


0000000 


53 








54 








55 








56 


004014 


1 1 2700 


000040 


57 


004020 


120167 


0000000 



SHOJQB : 


MDV 






MOV 


R2, -(riP) 




MOV 


R3, -(BP) 




MOV 


R4, - ( ',W ) 




MOV 


R5, ~<(iP) 



See if u)e should display F^PN instead of User names 



T£)TB 


(R3) 


BEQ 


40$ 


CMPB 


(R3), #'/ 


BNE 


40* 


IMC 


R3 


MOV 


#SJOHD, R4 


CALL 


SEARCH 


BCC 


41* 


F- ABORT 


#INVOPT 


MDVB 


#1, SJSPPN 



OOOOOOG 41*: 

Print system usage statiBtics 

40*: CALL PRTUSE 

Print heading liner- 

.PRINT #SYHD1 
. PRINT #SYHD2 



.;ANY COMMAND OPTIONS? 

.; BRANCH IF NOT 

.; VALID SWITCH LEAD IN? 

; IGNORE IF NOT 

;SKIP / 

.; POINT TO SHOW JOBS OPTION TABLE 

i VALID OPTION? 

; REMEMBER /PPN IF SO 

i /PPN ONLY VAL ID OPTION AT THIS TIME 



; PRINT SYSTEM USAGE STATISTICS 



i PRINT FIRST LINE OF JOB HEADING 
i AND UNDERLINE IT 



Begin loop to display information about each active line 



OOOOOOG 1*: 



MOV #2, Rl 

Bee if line is active 

BIT #*KINIT, LSW<R1) 
BNE 20* 
JMP 30* 

} ' r i ii t 1 i n e n u m her 



20* : 



MOV 
CALL 



Rl, R5 
PRTLN 



GET ISr LINE INDEX # 



HAS LINE BEEN INITIALIZED? 
BR IF YES 
TRY NEXT LINE 



J GET LINE INDEX # 
i PRINT THE LINE # 



i' r i J 1 1 •' » •" if this is < < or 1 i n e 



MDVB 
CMPB 



#'* , RO 
Rl, CORUSR 



i ASSUME THAT IT'S NOT OUR LINE 
J IS THIS OUR LINE? 



rsKSHo - ye^hQ 


arc SHOW 


ComfTiand 


MACRO V05. 


JOBS 








50 004024 


()0 1 002 






59 004026 


1 1 2700 


000052 




60 00403P 






2*: 


61 004036 








62 








63 








64 








65 004044 


020127 


0000000 




66 004050 


101407 






67 004052 


020127 


OOOOOOG 




68 004056 


1 1 004 






69 004060 








70 004066 


0004 43 






71 0040/0 


11 61 or;. 


ooooooe 


3«: 


72 004074 


004767 


0000000 




73 004100 








74 004110 


020127 


ooooooe 




75 004114 


J014i;> 






76 00<in6 


016504 


OOOOOOG 




77 004122 


012700 


OOOOOOG 




78 004126 


012705 


000001 




79 004132 


120124 




21* 


80 004134 


001403 






01 004136 


00520!"/ 






82 004140 


077004 






S3 004142 


005005 




19* 


84 004144 


004767 


OOOOOOG 


22* 


85 004150 








86 004160 


020527 


00001 i 




87 004164 


1 1 004 






88 004166 








89 004176 






IS* 


90 








91 








92 








93 004204 


116105 


OOOOOOG 




94 004210 


012703 


000003 




95 004214 


004767 


OOOOOOG 




96 004220 








97 








98 






i 


99 








100 004226 


00500:i 






101 004230 


016102 


OOOOOOG 




102 004234 


020263 


004670 ' 


4*: 


103 004240 


00 1 4 1 ,*> 






104 004242 


06270;* 


000002 




105 004246 


020327 


000050 




106 004252 


103770 






107 004254 


012700 


OOOOOOG 




108 004260 


020227 


OOOOOOG 




109 004264 


101402 






110 004266 


012700 


OOOOOOG 




111 004272 






25* 


112 004274 


000406 






113 004276 


16367 


004740 •' 


000504 6*: 


114 004304 









icmriay 21-Dec-S7 13:04 Pago 11-1 



SiNE 2* 
MOVB #'-»-,R0 
. TTYOUr 
. PRINT #SPACF2 



.: im IF MOT 

; PRINT * IF YFS 

; PRINT 2 SPACES 



Print information about oujnt^r jobr. 



CMP 


R1,#LSTPL 


BLOS 


3* 


CMP 


R 1 > #LSTDL 


BHI 


3* ; 


. PRINT 


#dett>:t 


BR 


1 8* 


MOVB 


LNPRIM(R.i ),R5 i 


CALL 


PRTLN ; 


. TTYOUT 


# '( i 


CMP 


R1.#LSTPL i 


BLOS 


19$ ; 


MOV 


LSECPT(R5), R4 ; 


MOV 


#MAXSEC, RO i 


MOV 


#1,R5 ; 


CMPB 


Rl, (R4)+ ; 


BEQ 


22* > 


INC 


R5 i 


SOB 


RO. 21* i 


CLR 


R5 > 


CALL 


PRTDEC i 


. TTYOUT 


#M .: 


CMP 


R5, #9. : 


BHI 


IS* ; 


. TTYOUT 


#40 ■> 


, PRINT 


#SPACF2 > 



Print job priority 



MOVB 


LPRI<R1).R5 


MOV 


#3, R3 


CALL 


PRTFIX 


. PRINT 


#SPACE2 



P r i n t current line b t a t { ■ 



CLR 


R3 


MOV 


LSTATE(Rl). R2 


CMP 


R2. STBIT<R3) 


BEQ 


6* 


ADD 


#2, R3 


CMP 


R3. #NUMS"I 


BLO 


4* 


MOV 


#RNMS, RO 


CMP 


R2/ #S**RUN 


BLOS 


25* 


MOV 


#WTMS.. RO 


. PRINT 




BR 


5* 


MOV 


STNAM<R3), STP 



IS THIS A PRIMARY LINE? 

BR IF PRIMARY LINE 

DETACHED JOB? 

BR IF NOT 

PRINT "Detached" 

GET OWNER LINE NUMBER 

PRINT OWNER LINE NUMBER 

ENCLOSE VIRTUAL LINE # IN < ) 

IS THIS A PRIMARY LINE? 

BR IF YES 

POINT TO VIRTUAL LINE # TABLE FOR OWNER JOB 

GET HIGHEST VIRTUAL LINE # 

START WITH VIRTUAL LINE #1 

SEARCH FOR LINE WITHIN TABLE 

BR IF FOUND RIGHT ONE 

INC VIRTUAL LINE # 

LOOP TILL FOUND 

SAY THIS IS LINE 

PRINT VIRTUAt LINE # 

CLOSE VIRTUAL LINE « 

J OR 2 DIGIT VIRTUAL LINE #? 

BR IF 2 DIGIT 

PRINT A SPACE 

PRINT 2 SPACES 



GET JOB'S PRIORITY VALUE 
PRINT IN 3 SPACES 

PRINT 2 SPACES 



PRINT #STPBUF 



GET USER'S CURRENT EXECUTION STATE 

LOOK UP THE STATE 

BR WHEN FOUND 

TRY NEXT FLAG 

DONE ALL? 

BR IF NOT 

ASSUME 'RN' STATE 

IS JOB EXECUTABLE? 

USE 'RN' IF SO 

GENERIC WAIT IF STATE NOT RN OR IN TABLE 

PRINT 'RN' OR 'WT' AS STATE 



; PRINT STATE NAME 



TBKSHQ 



— Keyboard 
JOBS 
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116 
117 

lis 

119 
120 
121 
122 
123 
124 

126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
1 42 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 



Print "SUP" if .lob i b uui&Wc-ripp cd 



004312 
004320 
004322 
004330 



00433.1 
004340 
004342 



004360 
004370 
004400 
004404 
0044 i 
004412 
004414 
004420 
004426 



004434 
004440 
004444 
004446 
004450 
004 454 
004460 
004462 
004466 
004470 
004474 
004500 
004502 
004512 
004516 
004520 
004530 
004534 



004542 
004550 
004554 
004560 



032761 
00 1 004 

000413 



032761 
001404 



004350 00040;> 
004352 



016105 
066105 
00520;> 
006205 
004767 



016705 
166105 
005205 
005004 
012703 
004767 
010046 
020527 
103405 
012703 
004767 
000406 

004767 
012605 



016104 
016105 
004767 



0000000 OOOOOOG 5*: 



BIT #*INC0R>LSW<R1) 

BNti 12* 

.PRINT #SWPTX 

BR 1 3* 



IS JOB IN MEMORY NOW? 

BR IF YES 
PRINT "SWP" 



Print "Lock" if job is iocked in memory 



w i^ w w w w w w b/ l/ w %w 1^ b.- A (m. ■*- 4 



0000000 
OOOOOOG 



0000000 



0000000 
0000000 



000074 
OOOOOOG 

000144 

000003 
OOOOOOG 



OOOOOOG 



004767 OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



m! r T 

BEG 14* 

. PRINT #LOCKTX 

BR 1 3* 

14*: .PRINT tSPACEf' 

P r i n t! c u r r e n t mem o r i.| 



H :i y (.' 



Print cpu time 



. PRINT 
MOV 
MOV 
CALL 



#SPACE2 
LCPUHKRl), R4 
LCPUL0(R1 .>.. R5 
PRTTMV 



13*; 


. TTYOUT 


#40 i 




J7Y0UT 


#40 J 




MOV 


LNBLKS(R1),R5 i 




ADD 


LNSBLK<R.i .>.R5 ; 




INC 


R5 i 




ASR 


R5 ; 




CALL 


PRTDC3 ; 




. PRINT 


#KBMSG ■> 




. PRINT 


#SPACE2 ; 


i Prii 


t job connect t i me 


> 


MOV 


MINTIM, R!> i 




SUB 


LC0NTM(R1>>R5 ; 




INC 


R5 > 




CLR 


R4 ; 




MOV 


#60. , R3 ; 




CALL 


DIVIDE ; 




MOV 


RO, -(SP) - 




CMP 


R5>#100. ; 




BLO 


23* i 




MOV 


#3. R3 ■> 




CALL 


PRTFIX ■> 




BR 


24* 


23*: 


. TTYOUT 


#40 i 




CALL 


PRTDC2 > 


24*: 


MOV 


(SP)+, R5 ; 




. TTYOUT 


#'; i 




CALL 


PRTDC2 ■> 




. PRINT 


#C0L00 i 



IS JOB LOCKED IN MEMORY?' 
BR IF NOT 
PRINT "LOCK" 

PRINT SPACES 



PRINT A SPACE 

PRINT ANOTHER SPACE 

GET # 256~W0RD BLOCKS ASSIGNED TO JOB 

ADD # BLOCKS USED FOR PLAS REGIONS 

ROUND UP 

CVT TO # K BYTES 

PRINT # K-BYTES OF MEMORY USED 

PRINT "Kb" 

PUT IN 2 SPACES 



GET CURRENT MINUTE TIMER VALUE 

CALCULATE CONNECT TIME FOR LINE 

CHARGE A MINIMUM OF 1 MINUTE 

CLEAR HIGH-ORDER FOR DIVIDE 

SET TO DIVIDE BY 60. 

DIVIDE BY 60 TO GET HOURS AND MINUTES 

SAVE NUMBER OF MINUTES 

DO WE NEED MORE THAN 2 DIGITS FOR HOURS? 

BR IF NOT 

PRINT 3 DIGITS 

PRINT # HOURS 

PRINT A SPACE 

PRINT # HOURS WITH 2 DIGITS 
GET # MINUTES CONNECTED 
PRINT COLON AFTER HOURS 
PRINT # MINUTES CONNECTED 
PRINT ^OO' SECONDS 



PRINT 2 SPACES 

GET HIGH ORDER CPU TIME (CLOCK TICKS) 
GET LOW ORDER CPU TIME < CLOCK TICKS) 
PRINT TIME VALUE 



Print name of runn:i>np. pfocjram 



TSKSHO - 


— Keyboard SHOW 


Command 




JOBS 






172 








173 


004564 






.174 


004572 


1 6 1 00 


OOOOOOG 


175 


004576 


004767 


OOOOOOG 


176 


004602 


016100 


OOOOOOG 


177 


004606 


004767 


OOOOOOG 


178 








179 








180 








lei 


004612 






192 


nnAADn 


0047A7 


OOOOOOG 


183 


004624 






184 








185 








186 








187 


004632 


062701 


000002 


188 


004636 


020127 


OOOOOOG 


189 


004642 


loioo;' 




190 


004644 


000167 


177122 


191 








192 








193 








194 


004650 


105067 


OOOOOOG 


195 


004654 


01260b 




196 


004656 


012604 




197 


004660 


012603 




198 


004662 


012602 




199 


004664 


01260.! 




200 


004666 


000207 




201 








202 








203 








204 








205 








206 


004670 


OOOOOOG 




207 


004672 


OOOOOOG 




208 


004674 


OOOOOOG 




209 


004676 


OOOOOOG 




210 


004700 


OOOOOOG 




211 


004702 


OOOOOOG 




212 


004704 


OOOOOOG 




213 


004706 


OOOOOOG 




214 


004710 


OOOOOOG 




215 


004712 


OOOOOOG 




216 


004714 


OOOOOOG 




217 


004716 


OOOOOOG 




218 


004720 


OOOOOOG 




219 


004722 


OOOOOOG 




220 


004724 


OOOOOOG 




221 


004726 


OOOOOOG 




222 


004730 


OOOOOOG 




223 


004732 


OOOOOOG 




224 


004734 


OOOOOOG 




225 


004736 


OOOOOOG 




226 




000050 




228 
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. PRINT 


#SPACP2 


MOV 


LPRGKRl). RO 


CALL 


PRTR50 


MOV 


LPRG2(R1)» RO 


CALL 


PRTR50 


user 


name or i'i'N 


. PRINT 


#SPACE3 


CALL 





F'r i llt■ 



,PRIMT #CRLI- 
Do next line 



30*: 



ADD 
CMP 
BHl 

F i n i s h e ci 



99*: 



CLRB 

MOV 

MOV 

MOV 

MOV 

MOV 

RETURN 



#2, Rl 
Rl. #LSTSi 
99* 
1* 



SJSPPN 
(SP)+, R5 
<SP)+, R4 
<SP)+, R3 
iSP)+, HL' 
(SP)-+-, Rl 



vJOB STATE CODES 



STB IT: 



WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 



WUMST 



S*RT 

S*TTSC 

e*TTFN 

S*OTFM 

S*HICP 

S*TWFi\| 

S*OTLO 

S*IOFN 

S*LOW 

S*INWT 

S*OTWr 

S*TMW r 

S*SPND 

s*Mswr 

B*GIUSR 
S*IOWT 
SfSFWT 
S*QMIO 
S*SPDB 
S*SPCB 
<. "STBir. 



GET 1ST 3 CHARS OF NAME <RAD50) 

PRINT THEM 

PRINT 2ND 3 CHARS 



c 

i 



.i PRINT 3 SPACES 
i PRINT USER NAME 



INDEX # 



.; GET NEXT LINE 
J CHECKED ALL? 
i BR IF YES 
; DO NEXT LINE 



; TURN OFF /PPN SWITCH 



REAL-TIME 

TT INPUT DONE AND SINGLE CHAR ACTIVATION 

TT INPUT DONE 

TT OUTPUT BUFFER EMPTY 

INTERACTIVE viOB COMPUTATION 

TIMED WAIT FINISH 

OUTPUT BUFFER ALMOST EMPTY 

I/O WAIT COMPLETION 

LOW PRIORITY COMPUTATION 

INPUT WAIT 

OUTPUT WAIT 

TIMED WAIT 

viOB HAS DONE A . SPND 



MESSAGE 


WAIT 


WAITING 


FOR 


USR 


WAITING 


FOR 


I/O TO FINISH 


WAITING 


FOR 


SHARED FILE RECORD 


WAITING 


FOR 


MAPPED I/O BUFFER 


WAITING 


FOR 


SPOOLED FILE SPACE 


WAITING 


FOR 


SPOOLED FILE 



PARALLEL VEC fOR OF SFATF NAMES 



f 

€ 

4 
< 

( 

i 

I 

i 
i 
i 

4 
i 
i 















TSKSHO - 


-•- Keyboard 


SHOW 


Com man 


t < 


229 


jobs" 








230 


004740 


12!/'' 


124 




231 


004742 


liJ 


116 




232 


004744 


111 


116 




233 


004746 


111 


116 


I 


234 


004750 


U.I 


116 




235 


004752 


1 1 


HI 




236 


004754 


110 


ill 




237 


004756 


110 


111 




238 


004760 


114 


117 




TOO 




124 


1 1 1 




240 


004764 


124 


117 




241 


004766 


123 


114 




242 


004770 


123 


114 




243 


004772 


1 1 ;■;■ 


123 




244 


004774 


12;' 


123 




245 


004776 


11 J 


117 




246 


005000 


123 


106 




247 


005002 


lis 


111 




248 


005004 


123 


1 20 




249 


005006 


123 


120 




250 










251 
252 


005010 


1 30 


130 


1 1 




















1 * 










1 

1 










1 










1 
1 







































































Monday 21-D&C-S7 13; 04 Pass? 11-4 



3TNAM; 



200 STPBUF 



. A5C 1 1 


/RT/ 


J Sf'RT 


. ASC 1 1 


/IN/ 


i 3*1 1 SC 


Af5C 1 1 


/IN/ 


> SliTTFN 


ASCII 


/IN/ 


;S«OTFN 


ABC 1 1 


/IN/ 


;SifiHICP 


. ASC 1 1 


/HI/ 


; S*TWFN 


ASCII 


/HI/ 


i S^OTLO 


. ASC 1 1 


/HI/ 


i S*IOFN 


ASC 1 1 


/LO/ 


; S*LOW 


ACSn T T 


/TT / 


iS*INWT 


ASCII 


/TO/ 


i S^OTWT 


ASCII 


/SL/ 


.; S^TMWT 


ASC 1 1 


/SL/ 


; S$SPND 


ASCII 


/hS/ 


i S*NSWT 


ASC 1 1 


/US/ 


J S*QUSR 


ASC 1 1 


/lO/ 


i S«IOWT 


ASCII 


/SF/ 


J S*SFWT 


ASC 1 1 


/MI/ 


; S^QHIO 


ASC 1 1 


/SP/ 


J S$SPDB 


ASC 1 1 


/SP/ 


; S*SPCB 


ASC 1 1 


/XX/<200> 




EVEN 







TSKSHO - 


— A e y fa a r d Sr-iOW 


Command 




QUEXJE 






1 

2 

'"5 








4 








5 
6 


005014 


010146 




7 


005016 


012701 


OOOOOOG 


8 


005022 


020127 


OOOOOOG 


9 


005026 


103024 




10 


005030 


005761 


OOOOOOG 


1 1 


005034 


001003 




12 


005036 


062701 


OOOOOOG 


13 


005042 


000767 




14 


005044 






15 


005052 






16 


005060 


004767 


OOOOOOG 


17 


005064 


062701 


OOOOOOG 


IS 


005070 


020127 


OOOOOOG 


19 


005074 


10377,1 




20 


005076 


000403 




21 


005100 






22 


005106 


012601 




23 


005110 


000207 
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BBTTL. 



<HJf-lH:- 



i 


SHOW 


QUEUE 




SHDQUE: 


MOV 


R 1 , - < £^P ) 






MOV 


#SDCB, Rl 


4*: 




CMP 


R 1 .. #SDCBWD 






BHIS 


3$ 






TST 


SDFHD<R1) 






BNE 


1 * 






ADD 


#SDCBS2,R1 






BR 


4$ 


1*: 




, PRINT 


#aHDMS 1 






. PRINT 


#0HDMB2 


5i|5: 




CALL 


LSTSPL 






ADD 


#SDCBSZ,R1 






CMP 


R 1 , #SDCBND 






BLO 


5* 






BR 


2« 


3*: 




. PRINT 


#NOFIL 


2^: 




MOV 
RETURN 


<SP)+, Rl 



QUEUED FILES 
DEVICE? 



POINT TO FIRST SDCB 

CHECKED ALL SDCB'S? 

BR IF YES — THERE ARE NO 

ANY FILES QUEUED FOR THIS 

BR IF YES 

POINT TO NEXT SDCB 

GO CHECK IT 

PRINT QUEUE HEAD MESSAGE 

Underline the heading 

LIST INFO ABOUT FILES QUEUED FOR THIS DEV 

POINT TO NEXT SDCB 

DONE ALL SDCB'S? 

BR IF MORE TO DO 

FINISHED 

THERE ARE NO PENDING SPOOL FILES 



t 

€ 

I 

< 

t 

< 

t 

< 

t 

< 

I 

I 

C 

i 
4 
I 
i 



4 
C 

i 
i 
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4 






5 






6 






7 






& 






9 






10 






4 i 

i. X 






12 






13 005112 






14 






15 






16 






17 005112 


005767 


OOOOOOG 


IS 005116 


00 1 4 1 




.19 






20 






21 






22 






23 






24 005120 


012704 


0000000 


25 






26 005124 


112724 


000077 


27 005130 


112324 




23 005132 


001376 




29 005134 


000167 


0000000 


30 






31 






32 






33 005140 






34 005146 


000207 





. 'aBTTL <;(.jMMAWDS 

SHOW COMMANDS Calls TSXUCL to display specific or all command definitions. 



1 n p u t s : 
R3 
R4 

Outputs: 
R3 



Points to nixt keyword in command buffer or end of command 
Points to next word in SHOW command table 



Points to £?Tid of input command in CMDBUF 

Pointr. to rsiU c=f string to be passed to TSXUCL in CMDBUF 



iHDCMD: 

See if there are any user defined commands 



TSr 
BEG 



UCLBLK 
1* 



; Any user defined commands? 
; Br if not 



There may be user defined commands. 

Pass any specific command to be displayed to TSXUCL. 

Enter TSXUCL to shuu." the commands. 



MOV 



#CMDBUF.. R4 



3$: 



MOVE 


#'?, (R4) + 


MOVB 


(R3)+, (R4)« 


BNE 


3* 


JMP 


CALUCI 



Point to beginning of command buffer 
Probably holds "SHOW ... "at this point 
Tell TSXUCL u>e want to show commands 
Pass next character from command buffer 
Until remainder of command line passed 
Call TSXUCL 



There are no user defined commands 



1^: 



. PRINT #NOUDC 
RETURN 



J No user defined commands 
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2 








3 








4 








5 


005150 


010246 




6 








7 








8 








9 


005152 






10 


005160 






1 1 


005166 






12 








13 








14 








15 


005174 


005002 




16 


005176 


004767 


000016 


17 


005202 


062702 


000002 


18 


005206 


020267 


OOOOOOG 


19 


005212 


101771 




20 








21 








22 








23 


005214 


012602 




24 


005216 


00020/ 





. SBTTL . 
i SHOW DEVICES 
SHODEV: (10V R2.. -<GP) 
; PrJnt headinq linp& 



Df-VICFS 



. PRINT 
. PRINT 



ttDVSHHJ 
#DV3HH2 



List status of each device that is installed in the system 

; Start with the first device 
^Display status about this device 
.i Oet next device index 
; Finished all devices I* 
j Loop i f not 



CLR 


R2 


CALL 


DEVDSP 


ADD 


#2, R2 


CMP 


R2. NUMDEV 


BLOS 


1* 


F i n i s h e d 




MOV 


<SP)+, R2 


RETURN 





TSKSHO — Keq board 
DEVICES 



i 
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3 








4 








5 








6 








7 


005220 


010346 




S 


005222 


010546 




9 








10 
1 1 








12 


005224 


012703 


000002 


13 


005230 


004767 


0000000 


14 


005234 


016200 


0000000 


15 
16 
17 


005240 


004767 


OOOOOOG 








18 








19 


005244 


012703 


000003 


20 


005250 


004767 


0000000 


21 


005254 


016205 


0000000 


22 


005260 


012703 


000005 


23 


005264 


004767 


ooooooe 


24 








25 








26 








27 


005270 


012703 


000003 


28 


005274 


004767 


OOOOOOG 


29 


005300 


016205 


OOOOOOG 


30 


005304 


012703 


000006 


31 


005310 


004767 


OOOOOOG 


32 








33 








34 








35 


005314 


012703 


000003 


36 


005320 


004767 


OOOOOOG 


37 


005324 


016205 


OOOOOOG 


38 


005330 


020527 


000100 


39 


005334 


103440 




40 


005336 


162705 


000006 


41 


005342 


012703 


000006 


42 


005346 


004767 


OOOOOOG 


43 








44 








45 








46 


005352 


012703 


000003 


47 


005356 


004767 


OOOOOOG 


43 


005362 


016205 


OOOOOOG 


49 


005366 


012703 


000006 


50 
51 

ISO 


005372 


004767 


OOOOOOG 


53 
54 


005376 


012703 


000002 


55 


005402 


004767 


OOOOOOG 


56 


005406 


016205 


OOOOOOG 


57 


005412 


012703 


000005 



> Display a line of Btatus information for a device. 



Inputs: 
R'ri --■ Dejvice index numbi-r 



DEVDSP ; MOV 
MOV 



R3, -<SP) 
R5. ~(UP) 



Print the device name 



MOV 


#2, R3 


CALL 


PRTSPC 


MOV 


PNAME(R2),R0 


CALL 


PRTR50 



Print the current I/O count 



MOV 


#3, R3 




CALL 


PRTSPC 




MOV 


HANIQC<R2) 


R5 


Mt:)V 


#5, R3 




CALL 


PRTFIX 





Print the device statuf> loord 



MOV 


#3, R3 


CALL 


PRTSPC 


MOV 


DVSTAT<R2).R5 


MOV 


#6, R3 


CALL 


OCTFIX 



i Print 2 spaces 

i Get RAD50 device name 
; F^r int i t 



.: Print spaces 

iQet # pending I/O operations for dev 
; Print in 5 column field 
> Print i t 



i Print spaces 

i Get status word value 

i Print 6 digits 

j Print octal value 



Print the handler virtual base address 



i Print spac es 



MOV 


#3, R3 


CALL 


PRTSPC 


MOV 


HAN'ENT<R2), R5 


CMP 


R5i #100 


BLO 


9* 


SUB 


#6, R5 


MOV 


#6, R3 


CALL 


OCTFIX 



; Get base address of handler 

ils this a real or pseudo handler? 

i Branch of pseudo handler 

; Get actual handler base address 

J Print 6 digits 

; Print octal value 



Print the handler physical base address 



; Print spaces 



MOV 


#3.. R3 


CALL 


PRTSPC 


MOV 


HANPAR(R2),R5 


MOV 


#6, R3 


CALL 


OCTFIX 



Print the handler siiff' 



MOV 


#2, R3 


CALL 


PRTSPC 


MOV 


HANSI2<R2>. R5 


MOV 


#5,R3 



.; Get physical base address of handler 

j Print 6 digits 

> Print octal value 



.: Print 2 spaces 



i Get the handler sire 
J Print 5 d iq i ts 



€ 

I 

i 

€ 
€ 

i 
i 

« 
I 

i 
I 
« 

i 
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58 005416 004767 OOOOOOG 

59 005422 012703 000002 

60 005426 004767 OOOOOOG 
61 

62 

63 

64 005432 004767 000014 

65 

66 

67 

68 005436 

69 

70 

71 

72 005444 01260^' 

73 005446 012603 

74 005450 000207 



CALL 


P RTF IX 


MOV 


#2>R3 


CALL 


PRTSPC 



; Print decimal value 
; Print spaces 



Print CSR and Vector addresses for this device 

CALL DSPCSR 
Terminate this print line 

F i %t i & h e d 



; F ri d the print 



1 -i 



ne 



MOV <SP)+, Rly 
MOV ( SP ) +, K3 
RETURN 



TSKSHO — Keyboard SHOW Command 
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€ 
€ 



1 

2 






3 






4 






5 






6 






7 005452 


010146 


I 


8 005454 


010246 




9 005456 


010346 




10 005460 


010446 




11 005462 


010546 




12 






13 






14 






15 005464 


1 6767 


0000000 172306 


16 005472 


1 6267 


0000000 172302 


17 




f 


IS 




f 


19 




i 


20 005500 






21 005506 






22 005526 


103547 




23 






24 






25 






26 005530 






27 005566 


103527 




28 005570 


016767 


OOOOOOC 172214 


29 






30 






31 






32 005576 






33 005636 


016767 


OOOOOOC 172144 


34 






35 






36 






37 005644 


016700 


172142 


38 005650 


056700 


172134 


39 005654 


001474 




40 






41 






42 






43 






44 005656 


00 500 J 




45 005660 


012704 


OOOOOOC 


46 005664 


012400 




47 005666 


002013 




48 005670 


006300 




49 005672 


060004 




50 005674 


005714 




51 005676 


002007 




52 005700 


005724 




53 005702 


012401 




54 005704 


010100 




55 005706 


004767 


000226 


56 005712 


010005 




57 005714 


00040/' 





Extract CSR and Vector addreBSBs from a device handler and display them. 



; Inputs: 




; R2 


= Device 


indejf numtic-i 


DSPCSR: 


MO'-.' 


R 1 , - < SP ) 




MOV 


R2, - i SP ) 




MOV 


R3, -<;-iP) 




MOV 


R4, -CSH) 




MOV 


Q =; f GD 1 



Build f-ile spec for devict- handler 

MOV SYNAME, HAMMAM ; Set physical device name for SY device 
MOV PNAME<R2), HANNAMH-2 ; Set RAD50 device name 

Try to open the devici; handler file 

. SFiRR ; Don't abort on lookup errors 

.LOOKUP #XAREA. #:l, #HAMNAM ; Try to open handler file 
DCS 9* i Bt if unable to open handler 

Read block of handler and save information about CSR address 

. READW #XAREA, #1, #BLKO, #256. , #0 ; Read block of handler 

BCS 9* 

MOV BLKO+H. CSR.. DCSR .; Save CSR info 

Read blocks 1 and 2 of handler 

READW #XAREA, #1, #BLKO, #512. , #1 > Read blocks 1 and 2 of handler 
MOV BLK0~1000+H. VEC, DVEC ; Save vector info 

If both the CSR and vector are zero> don't display anything 



MOV 
BIS 
DEO 



DCSR, RO 
DVEC RO 
9* 



J Get CSR value 

jAdd Vector value 

; Br if both are zero 



Determine if this is a handler for a PRO device with floating 
vector and CSR addrest-c!::.. 



CLR Rl 

MOV #BLK0-1000+H. VEC 

MOV (R4)+, RO 

BGE 3* 

ASL RO 

ADD RO, R4 

TST <R4) 

BGE 3* 

TST <R4)+ 

MOV (R4)+, Rl 

MOV R 1 , RO 

CALL PI DCSR 

MOV RO, R5 

BR 4* 



Assume this is not a PRO device 

R4 i Point to handler vector cell 

Get address of vector 

Br if not pointer to vector list 

Get byte offset to vector list 

Point to start of vector list 

Is this a PRO device with floating addresses? 

Br if not 

Point to word with PRO device ID 

Get PRO device ID 

Get PRO device ID 

Get CSR address for PRO device 

Get to R5 for OCTFIX 

Go display it 



TSK 



SHO - 


— Keyboard SHOW 


Command 




DEVICES 






58 








59 








60 








61 


005716 


016705 


172070 


62 


005722 


012703 


000002 


63 


005726 


004767 


OOOOOOG 


64 


005732 


012703 


000006 


65 


005736 


004767 


OOOOOOG 


66 








67 








69 








69 


005742 


012703 


000002 


70 


005746 


004767 


OOOOOOG 


71 


005752 


01670r> 


172032 


72 


005756 


001433 




73 


005760 


00240!/ 




74 


005762 


012703 


000003 


75 


005766 


004767 


OOOOOOG 


76 

77 
78 


005772 


00042::"/ 










79 








80 


005774 


005701 




81 


005776 


001404 




82 


006000 


010100 




83 


006002 


004767 


000154 


84 


006006 


010001 




85 


006010 


01140^' 




86 


006012 


060 10 '5 




87 


006014 


012703 


000003 


88 


006020 


004767 


OOOOOOG 


89 


006024 


062704 


000006 


90 


006030 


005714 




91 


006032 


003405 




92 


006034 


012703 


000001 


93 


006040 


004767 


OOOOOOG 


94 


006044 


000761 




95 








96 








97 








98 


006046 






99 


006054 






100 


006062 


012605 




101 


006064 


012604 




102 


006066 


012603 




103 


006070 


012602 




104 


006072 


012601 




105 


006074 


000207 
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D i & p 1 a u the CSR va I u e 



3*: 
4*: 



MOV 


DCSR,R5 


MOV 


#2, R3 


CALL 


PRTSPC 


MOV 


#6, R3 


CALL 


OCTFIX 



Display vector addres5e!> 



MOV 


#2. R3 


CALL 


PRTSPC 


HOV 


DVECRS 


BEQ 


9* 


B)...T 


1* 


MOV 


#3, R3 


CALL 


OCTFIX 


BR 


9* 



i Get CSR value 
i Print 2 spaces 

i Print 6 digits 

; Print octal value 



; Print 2 spaces 

i Single vector or vector list? 

j Br if no vector 

i Br if multiple vector 

; Print 3 digits 

J Print octal value 



i 
t 

I 

( 
I 



We have multiple vectors <and possibly floating PRO vectors) 



1*: 



5*: 



9*: 





TST 


Rl 




BEO 


5* 




MOV 


Rl, RO 




CALL 


P I DVEC 




MOV 


RO, Rl 




MOV 


<R4), R5 




ADD 


Rl, R5 




MOV 


#3, R3 




CALL 


OCTFIX 




ADD 


#6, R4 




TST 


<R4) 




BLE 


9* 




MOV 


#1, R3 




CALL 


PRTSPC 




Bl"< 


5« 


F i n :. 


shed 






. CLOSE 


#1 




, HERR 






MOV 


(SP)+, Rb 




MOV 


<SP)+,R4 




MOV 


<SP)+, R3 




MOV 


<SP)+, R2 




MOV 


<SP)+, Rl 




RETURN 





J Do ute have floating vectors for PRO device? 

; Br if not 

i Get PRO device ID 

; Get base vector based on device ID 

i Save base vector location for device 

i Get address of next vector 

;Add base vector address 

.i Print 3 digits 

; Print octal value 

J Point to next vector entry 

; Are there more vectors? 

.; Br if not 

.; Print 1 space 

i Print next vector 



iClose handler file 
; Reset error aborts 



4 

i 
i 
i 









TSKSHD — Keyboard 




DEVICES 




1 




2 




3 




4 




5 




6 




7 




8 
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I 

€ 

i 
I 

< 
i 
i 

i 
i 
i 



3 








4 








5 








6 








7 








8 








9 








10 








11 


006076 


010146 




12 


006100 


012701 


OOOOOOG 


13 


006104 


021127 


177777 


14 


006110 


001410 




15 


006112 


020021 




16 


006114 


001373 




17 


006116 


162701 


000002G 


18 


006122 


00620 J 




19 


006124 


010100 




20 


006126 


000241 




21 


006130 


000401 




22 


006132 


000261 




23 


006134 


012601 




24 


006136 


000207 




25 








26 








27 








28 








29 








30 








31 








32 








33 








34 








35 








36 


006140 


004767 


177732 


37 


006144 


103405 




38 


006146 


072027 


000007 


39 


006152 


062700 


174000 


40 


006156 


000241 




41 


006160 


000207 




42 








43 








44 








45 








46 








47 








48 








49 








50 








51 








52 








53 


006162 


004767 


177710 


54 


006166 


10340 'J 




55 


006170 


072027 


000003 


56 


006174 


062700 


000300 


57 


006200 


000241 





Convert a PRO device ID number into the option slot # for the device. 

I n p u t B : 

RO ^- PRO riev;ice ID, 

Outputs: 
C-flag set =-> Could nut find device ID. 
RO = Option slot number. 



.: Point to entry for slot 

; Checked all entries? 

j Br if yes 

.! Search for correct entry 

iLoop if this is not it 

J Get byte index for slot 

; Get word index 

.: Return in RO 

; Signal success on return 

; Signal failure on return 



Determine the address of the CSR for a PRO device given the device ID. 

I n p u t s : 
RO ~ PRO device ID 

Outputs: 
C-flag set ==> Do not recognize the device. 
RO "= CSR address 



PIDSLT 


: MOV 


ai. — f f ;r' ) 




MOV 


#PR0SL7,R1 


1*: 


CMP 


<R1)> #-1 




BEO 


2* 




CMP 


RO, (Rl) 1" 




BNE 


1* 




SUB 


#PR0SLT+2, Rl 




ASR 


Rl 




MOV 


Rl> RO 




CLC 






BR 


9* 


2*: 


SEC 




9*: 


MOV 
RETURN 


< SP ) +, n 1 



PIDCSR: CALL 
BCS 
ASH 
ADD 
CLC 

9*: RETURN 



P I DSLT 

9* 

#7. , RO 

#174000.. RO 



Determine slot where device is installed 

Br if don't recognize device 

CSR addresses are 200 apart per slot 

CSR for slot is here 

Signal success on return 



€ 
€ 
€ 

i 
« 
i 



Determine the base vector for a PRO device given the device ID. 

I n p u t e; ; 

RO = PRO device ID 

Outputs; 
C-flag set ==> Did not recognize device. 
RO =• Base vector location for device. 



PIDVEC: CALL 
BCS 
ASH 
ADD 
CLC 



PIDSLT 
9* 

#3. , RO 
#300.. RO 



Determine uhat slot has controller 
Br if don't recognize device 
Vectors are S bytes apart per slot 
Vector for slot O is at 300 
Signal success on return 
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DEVICES 

58 006202 000207 9$: RETURN 



TSKSHO — ■ Keyboard 
ASSIGNS 
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I 
i 
i 
< 
i 



2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



BBTTL 



A3fiJGNS 



006204 0:1.0246 
006206 



006214 






006 

006230 

006234 

006240 

006242 

006250 

006254 

006260 

006270 



006276 
006302 
006310 
006312 
006316 
006322 
006324 
006332 
006336 
006342 
006352 



006360 
006364 
006370 
006372 
006376 
006402 
006410 
006414 
006420 
006430 
006434 
006436 
006442 
006446 
006452 
006462 
006466 
006470 
006474 
006500 



012702 
026762 
001423 
062702 



103767 

016700 
004767 



012702 
026762 
001423 
062702 
020227 
103767 

016700 
004767 



012702 
005762 
001461 
016200 
004767 

016200 
004767 

016200 
001434 
004767 
016200 
004767 

016200 
001417 
004767 
016205 
00 1 4 1 P. 



Display asE^ignments. 

SHOASN: MOV R2>-(SP) 

.PRINT #ASNHD1 ; PRINT HEADIWO 

If there is no assignment for SY^ print default asBignment 



0000000 
0000000 OOOOOOQ 

0000000 
OOOOOOG 



0000000 
OOOOOOG 



5*- 



MOV 


#ASN TBL, R2 




R50SY.. AT$L 


13 EQ 


6* 


ADD 


#AT*iliS2,R2 


CMP 


R2, #ASNEND 


BLD 


5* 



ft.' \ I \ t^ 4 



.PRINT #SYASHD 
MOV SYNAME, RO 
CALL PRTR50 
. fTYOUT # ' ; 
.PRINT #CRLF 



Point to assign table 

I*= thi*E entru for SY*?* 

Br if yes 

Point to next entry 

Checked ail assign entriesT' 

Loop if not 

Print "SY — > " 

Get default device 



If there is no assignment for DK^ print default assignment 



OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



6*: 
7*: 



MOV #ASNTBL, R2 

CMP R50DK, AT$L0G<R2) 

BEQ e* 

ADD #AT**SZ.. R2 

CMP R2, #ASNEND 

BLO 7* 

. PRINT #DKASHD 

MOV SYNAME, RO 

CALL PRTR50 

. TTYOUT # ' : 

. PRINT #CRLF 



Point to assign table 

Is this entry for DK? 

Br if yes 

Point to next entry 

Checked all assign entries? 

Loop if not 

Print "DK — > " 

Get default device 

Print it 



Now print user assign table (entries 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 
000002G 
OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 



8*: 
2$: 



MOV 


#ASNTBL.. R2 > 


TST 


AT*L0G<R2) > 


BEG 


3* ; 


MOV 


AT*L0G<R2),R0 


CALL 


PRTR50 ; 



.PRINT #ASNHD2 

MOV AT*DEV<R2)> RO 

CALL PRTR50 

. TTYOUT # ' : 

MOV AT*FIL(R2), RO 

BEQ 4* 

CALL PRTR50 

MOV AT*FIL+2(R2), RO 

CALL PRTR50 

. TTYOUT #'. 

MOV AT*EXT<R2).. RO 

BEO 4$ 

CALL PRTR50 

MOV AT*SI2(R2),R5 

BEO 4* 



POINT TO ASSIGN TABLE 

IS THIS ASSIGN TABLE ENTRY IN USET' 

BR IF NOT 

; GET LOGICAL DEVICE NAME 
DISPLAY LOGICAL DEVICE NAME 
PRINT ARROW 

GET PHYSICAL DEVICE NAME 
PRINT IT 
PUT IN COLON 

GET 1ST 3 CHARS OF FILE NAME 
BR IF NO NAME 
PRINT 1ST PART OF NAME 
GET 2ND 3 CHARS OF FILE NAME 
PRINT THE NAME 
PUT IN A PERIOD 
GET EXTENSION 
BR IF NONE SPECIFIED 
DISPLAY THE EXTENSION 
GET FILE SIZE 
BR IF NONE SPECIFIED 



€ 

€ 
i 
I 
< 
I 



TSKSHO " 


--" Keyboard SHOW 


Command MACRO 


V05. 04 


Monday 21 


-Dec -37 13; 




ASSIGNS 












58 


006502 








. r TV OUT- 


#'[: 


59 


006512 


004767 


OOOOOOG 




CALL 


PRTDEC 


60 


006516 








. TTYOUT 


#'3 


61 


006526 






'1^: 


. f-'RINT 


#CRLF 


62 


006534 


062702 


0000000 


3$: 


ADD 


#AT**SZ.. R2 


63 


006540 


020227 


0000000 




CMP 


R2, #ASNEND 


64 


006544 


103707 






BLO 


2* 


65 


006546 


012602 






MOV 


(SP)+, R^> 


66 


006550 


000207 






RETURN 
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START SIZE SPEC 

DISPLAY THE FILE SIZE 

TERMINATE THE SIZE SPEC 

TERMINATE THE LINE 

POINT TO NEXT ASSIGN ENTRY 

HAVE WE REACHED END OF TABLE' 

BR IF NOT 



I 
I 



t 
« 
t 

€ 



( 
( 
4 
€ 



\ 



{ 
{ 
i 
« 

€ 
€ 
€ 

i 

i 
i 

i 



TSKSHO - 


— K e y b a r a' 5HDI.- 


Command 


1 
2 
3 


ALLOCATIfjMS 










4 








5 


006552 


010146 




h 


006554 


010246 




7 


006556 


010346 




8 


006560 


010546 




9 








10 








1 1 








12 


006562 


012702 


OOOOOOG 


13 


006566 


105762 


0000000 


14 


006572 


001011 




15 


006574 


062702 


OOOOOOG 


16 


006600 


020227 


OOOOOOQ 


17 


006604 


103770 




18 








19 








20 








21 


006606 






22 


006614 


000460 




23 








24 








25 








26 








27 


006616 






28 


006624 






29 


006632 






30 








31 








32 








33 


006640 


012702 


OOOOOOG 


34 


006644 


116205 


OOOOOOG 


35 


006650 


001435 




36 








37 








38 








39 


006652 






40 


006662 


016200 


OOOOOOG 


41 


006666 


004767 


OOOOOOG 


42 


006672 


004767 


OOOOOOG 


43 


006676 


012703 


000004 


44 


006702 


004767 


OOOOOOG 


45 








46 








47 








48 


006706 


012703 


000002 


49 


006712 


010501 




50 


006714 


006205 




51 


006716 


004767 


OOOOOOG 


52 


006722 


012703 


000003 


53 


006726 


004767 


OOOOOOG 


54 








55 








56 








57 


006732 


004767 


OOOOOOG 
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. SBTTL . 
Shou) allocations 



ALl CiCATIOMB 



SHOAL C : MOV 
MOV 
MOV 
MOV 



R 1 . - ( SP ) 
R2. -(SP) 
R3, -(BP) 
R5.. ~<SP> 



1*; 



Make a fast scan to see JF there are any allocated devices 



Point to start of allocation table 

Is this entry used7' 

Br if yes 

Point to next entry 

Checked all entries? 

Loop if not 



Ihere are no allocated devices 



MOV 


#ALCTBL, R2 


TSTB 


AD*J0B(R2> 


BNE 


2* 


ADD 


#AD«*SZ, R2 


CMP 


R2, #ALCEND 


BLO 


1* 



. PRINT #TM*NAD 
BR 9* 



iWo allocated devices 

; F i n i s h e d 



Thpre are some allocated devices. 
Print heading lines. 



'*; 



. PRINT #CRLF 

PRINT #ALCH1)1 
.PRINT #ALCHD2 



j Print a blank line 
jPrint heading line 1 
.; Print heading line 2 



Begin loop to print information about each allocated device 



MOV #ALCTBL.. R2 

3* : MOVB AD$ JOB ( R2 ) > R 5 

BEG 4* 

Print the device name 

. TTYOUT #40 

MOV AD*DVU(R2}, RO 

CALL. CVDVNM 

CALL PRTR50 

MOV #4. , R3 

CALL PRTSPC 



Point to start of allocation table 
Is this entry used? 
Br if not 



Put a space in front of the device name 

Get device and unit number 

Convert dev and unit # to device name 

F'rint the device name 

Print 4 spaces 



Print the number of the job to which the device is allocated 

Print job number in 2 col field 

Save job index number in Rl 

Convert job index number to job number 

Print the job number 
Space over 3 columns 



MOV 


#2. , R3 


MOV 


R5, Rl 


ASR 


R5 


CALL 


PRTFIX 


MOV 


#3, , R3 


CALL 


PRTSPC 



Print the user's namp 
CALL PRTUNM 



; Print the user's name 



€ 
C 
f 
I 



TSKSHO - 


--- Keyboard SHOW 
ALLOCATIONS 


Command 


58 








59 








60 








61 


006736 






62 








63 








64 








65 


006744 


062702 


OOOOOOG 


66 


006750 


020227 


OOOOOOG 


67 


006754 


103733 




66 








69 








70 








71 


006756 


012601' 




72 


006760 


012603 




73 


006762 


01260n 




74 


006764 


012601 




75 


006766 


000207 





Terminate this print lint- 

.PRINT #CRLF i End of line 

See if there are more alloceited devices to display 



4*: 



?$: 



ADD 


#AD$*SZ, 


CMP 


R2, #ALCE 


BLO 


3* 


F i 1 1 i h h t> d 




MOV 


<SP)-i-, Rb 


MOV 


(SP)+> H3 


MOV 


<SP)+, R2 


MOV 


(SP)+, Rl 


RETURN 





jPoint to next allocation entry 
jFinished all entriesT' 
i Br i f more to do 



TSKSHO 



— Keyboard 
MOUNTS 
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1 

r-j 

fV.. 

3 
4 
5 
h 
7 
8 
9 
10 
1 1 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 



SB TIL 



MtUJMi 



006770 
006772 
006774 
006776 
007000 



007002 
007006 
007012 
007014 
007020 
007024 
007026 
007032 
007034 
007036 
007042 
007046 
007050 



007052 
007056 
007060 
007062 
007064 
007066 
007072 
007076 
007100 
007106 
007 1 1 
007112 
007114 
007120 
007124 
007126 
007130 
007132 
007134 
007142 
007144 
007150 
007154 
007156 



010146 
010246 
010346 
010446 
010546 



016704 
01270D 
010400 
004767 
005767 
00 1 404 
020527 
103001 
010425 
062704 
020467 
103761 
005015 



012705 
012503 
00 1 437 
01050''! 
010300 
004767 
016702 
000302 
016767 
012401 
001762 
010100 
004767 
016700 
000300 
020002 
1 1 366 
103404 
026767 
103361 
010364 
010165 
010103 
000742 



ooooooe 

OOOOOOG 
0000000 

ooooooe 

001774G 



OOOOOOG 
OOOOOOG 



OOOOOOG 



! Sh CH(j 


mounts 




SHOMNT: 


MOV 


Rl, -(SP) 




MOV 


R2, -(SP) 




MOV 


R3, -(SP) 




MOV 


R4, -<SP) 




MOV 


R5, -(SP) 


'} 

: Set 


up 3 tab 


le of pointers 


t 


MOV 


CSHDEV, R4 




MOV 


#BLKO, R5 


20*: 


MOV 


R4,R0 




CALL 


CDGET 




TST 


CDBUF+CD*DVU 




OEQ 


21* 




CMP 


R5, #BLK0+1020 




BHIS 


21* 




MOV 


R4, (R5) + 


21«: 


ADD 


#CD**SZ, R4 




CMP 


R4, CSHDVN 




BLO 


20* 




CLR 


(R5) 



to active mount entries in BLKO area. 

Point to start of mount table 

Point to ares where uie will build table 

Get address of next mount entry 

Get mount entry into CDBUF 

Is this mount entry in use? 

Br if not 

Is table full? 

Br if yes 

Save pointer to active mount entry 

Point to next entry in mount table 

Have we checked all mount entries? 

Loop if not 

Put null pointer at end of table 

Now sort the list of mount table pointers using two keys: 

key 1 — • Device # ?< unit #.; key 2 — base block number of logical disks 



24*: 



>3*: 



OOOOOOG 

ooooooe 

ooooooe 170710 



OOOOOOG 

ooooooe 



?5*: 



ooooooe 170654 

177776 
177776 



22*: 



MOV 

MOV 

BE(3 

MOV 

MOV 

CALL 

MOV 

SWAB 

MOV 

MOV 

BEQ 

MOV 

CALL 

MOV 

SWAB 

CMP 

BHI 

BLO 

CMP 

BHIS 

MOV 

MOV 

MOV 

BR 



#BLKO, R5 

(R5)+, R3 

26* 

R5, R4 

R3. RO 

CDGET 

CDBUF+CD*DVU, 

R2 

CDBUF+CD*BAS, 

( R4 ) +.. R 1 

24* 

Rl, RO 

CDGET 

CDBUF+CD*DVU, 

RO 

RO, R2 

25* 

22* 

CDBUF4CD*BAS, 

25* 

R3> -2(R4) 

Rl, -2(R5) 

Rl, R3 

23* 



R£ 
CDB 



Point to first entry in table 

Get pointer to a mount entry 

Br if finished sorting table 

Get pointer to next entry in table 

Get address of mount entry 

Copy entry into CDBUF 

Get device # and unit # of mounted device 

F^ut dev # in high-order, unit # in low-order 
ASE .; Save base block number 

Get pointer to another mount entry 

Br if checked all beyond reference entry 

Get address of mount entry 

Copy entry into CDBUF 

Get device # and unit # of this entry 

Rearrange dev # and unit # order 

Look for smallest dev # and unit # 

Br if this device is higher 

Br if this device is smaller than ref one 
CDBASE- Same device* now check base block #'s 
j Br if not smaller 
.: Swap table entries 

j Set new reference pointer 
.; Continue sort 



RO 



57 007160 



005767 0000000 



26* 



If there avB any mounted devices, print table heading 

TST BLKO .: Are there any mounted devices? 



TSKSHO — Keyboard SHOW CommanU HACRO V05. 04 Monday 21--Dec"S7 13:04 Page 20-1 



c 
c 

4 



58 
59 
60 
61 
62 
63 
64 
65 
66 
67 

\.^\^ 

69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 

ei 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



007164 

007166 
007174 



007202 
007206 
007210 
007212 

007220 
007224 
007230 



00 1 406 



BEO 

. PRINT 

. PRINT 



30* 

#SHMTH1 

#SHMTH2 



Br if not 

Print heading line 

Underline it 



007242 



007252 
007256 
007260 
007266 
007272 
007274 
007276 
007300 
007304 
007306 
007314 
007320 
007322 
007326 
007334 
007336 
007342 
007344 
007350 
007352 
007356 
007360 
007362 
007364 
007372 
007374 
007376 
007404 
007410 
007414 
007416 
007420 
007422 



004767 
004767 



005767 
001005 

000167 

010146 

00 5046 

010146 

016703 

005005 

016767 

016704 

010400 

004767 

026767 

001023 

005767 

001420 

020367 

101415 

020367 

103012 

005705 

001404 

026767 

101404 

010405 

016767 

062704 

020467 

10374.1 

010501 

00 1 404 

010500 



Nou) print information ahout f?ach device. 



012702 0000000 

012201 

00 1 002 

000167 000414 

01 0100 

004767 

016700 

00 1 576 



0000000 
OOOOOOC 



30*: 


MOV 


#BLKO> R2 


i*: 


MOV 


(R2)+, Rl 




BNE 


27* 




JMP 


2* 


27*: 


MOV 


a 1 C5/^ 




CALL 


CDGET 




MOV 


CDBUF+CD*DVU, RO 




BEQ 


8* 



Get pointer to table of sorted pointers 

Oct next mount table pointer 

Br if got another entry 

Finished all devices 

Oet address of mount entry 

Move entry into CDBUf 

GET UNIT # / DEVICE # OF MOUNTED DEVICE 

BR IF NULL — THIS ENTRY IS FREE 



Found a mounted devicf. 

Print device name and unit number 



OOOOOOG 
OOOOOOG 



29*: 
12*: 



13*: 



OOOOOOC 



000234 



OOOOOOC 

OOOOOOC 170504 
OOOOOOG 

OOOOOOG 

170466 OOOOOOC 

OOOOOOC 

OOOOOOC 

OOOOOOC 



OOOOOOC 170430 

15*: 
OOOOOOC 170416 
OOOOOOG 14*: 

OOOOOOG 



CALL 
CALL 



CVDVNM 
PRTR50 



TTYOUT # 



CONVERT DEVICE S< UNIT 
PRINT THE DEVICE NAME 
PRINT ": " 



#'S TO DEVICE NAME 



If this is a logical rii-. k» print the LD file name 



TST 

BNE 

. PRINT 

^JMP 

MOV 

CLR 

MOV 

MOV 

CLR 

MOV 

MOV 

MOV 

CALL 

CMP 

BNE 

TST' 

BEQ 

CMP 

BLOS 

CMP 

BHIS 

TST 

BEQ 

CMP 

BLOS 

MOV 

MOV 

ADD 

CMP 

OLD 

MOV 

BEQ 

MOV 



CDBUF+CD*BAS 

29* 

#SPACE6 

4* 

R 1 , - < SP > 

-(SP) 

R 1 , - ( SP > 

CDBUF+CD*BAS, R3 

R5 



IS THIS A LOGICAL DISK? 

BR IF YES 
SPACE OVER 6 



iSAVE ORIGINAL MOUNT TABLE INDEX 
;PUT NULL ON STACK TO SIGNAL END 
i SAVE POINTER TO INNER-MOST LOGICAL DISK 
; GET BASE BLOCK NUMBER OF THIS LD 
; SAY NO ENCLOSING LD FOUND YET 
CDBUF+CD*DVU, CDDVU ; Save device and unit info 
CSHDEV, R4 ; SEARCH THROUGH MOUNTED DEVICE TABLE 
R4> RO ; Get address of mount entry 

CDGET J Move into CDBUF 

CDDVU, CDBUr+CDIiDVU; LOOKING FOR ONE WITH SAME PHYS DEVICE 



14* 

CDBUF+CD*BAS 

14* 

R3, CDBUF+CD*BAS 

14* 

R3, CDBUF+CD*TOP 

14* 

R5 

15* 



BR IF NOT THIS ONE 

IS THIS ALSO A LOGICAL DISK? 

BR IF NOT 

SEE IF THIS LD ENCLOSES INNER LD 

BR IF NOT 

CHECK UPPER RANGE 

BR IF NOT ENCLOSING 

ANY OTHER ENCLOSING LD'S FOUND SO FAR? 

BR IF NOT 



CDBUF+CD*BAS, CDBAS5; SAVE ONE WITH HIGHEST BASE 

14* 

R4, R5 ;THIS IS AN ENCLOSING LOGICAL DISK 

CDBUF+CD*BAS. CDBAS5 



#CD**SZ, R4 

R4, CSHDVN 

13* 

R5, Rl 

16* 

R5, RO 



POINT TO NEXT MOUNT TABLE ENTRY 

CHECKED ALL? 

LOOP IF NOT 

DID WE FIND AN ENCLOSING LOGICAL DISK? 

BR IF NOT 

WE FOUND AN OUTER LD 



i 



i 
< 

I 
€ 
I 
< 
I 
d 

( 
i 
i 
( 

4 

i 



TSKSHO - 


— Keyboard SHOW 


Command 




MOUNTS 






115 


007424 


004767 


0000000 


116 


007430 


000722 




117 


007432 


012605 




lis 


007434 


012703 


0000000 


119 


007440 


010500 




120 


007442 


004767 


0000000 


121 


007446 


012700 


OOOOOOC 


122 


007452 


004767 


0000000 


123 


007456 


112723 


000072 


124 


007462 


012605 




125 


nQ74A4 


00 136 '3 




126 


007466 


005303 




127 


007470 


020327 


0000060 


128 


007474 


103003 




129 


007476 


1 1 2723 


000040 


130 


007502 


00077P 




131 


007504 


112713 


000200 


132 


007510 






133 


007S16 


012601 




134 


007520 


010100 




135 


007522 


004767 


0000000 


136 








137 








138 








139 


007526 


012705 


000001 


140 


007532 


012703 


000001 


141 


007536 


012704 


OOOOOOC 


142 


007542 


130314 




143 


007544 


0014115 




144 


007546 






145 


007556 


020527 


000012 


146 


007562 


103004 




147 


007564 






143 


007574 


004767 


OOOOOOG 


149 


007600 


106303 




150 


007602 


103002 




151 


007604 


005204 




152 


007606 


006103 




153 


007610 


005205 




154 


007612 


020527 


0000000 


155 


007616 


J 01 751 




156 








157 








158 








159 


007620 






160 


007626 


000167 


177354 


161 








162 








163 








164 


007632 


005767 


OOOOOOG 


165 


007636 


001003 




166 


007640 






167 








168 








169 








170 


007646 


01260;i 




171 


007650 


012604 
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30- 



CALL CDGET 

BR 12f 

16*: MOV <SP>+, R5 

MOV #PRTBUF.. R3 

17*: MOV R5, RO 

CALL CDGET 

MOV #CDBUF+CD*NAM, 

CALL PRTFNM 

MOVE #': . (R3) + 

MOV <SP)+. R5 

BNE 17$ 

DEC R3 

18*: CMP R3, #PRTBUF+6. 

BHJ.S 19* 

MDVS #40, (R3)-+- 

BR IS* 

19*: MOVB #200, (R3) 

. PRINT #PRTBUF 

MOV (SP)+, Rl 

MOV R 1 , RO 

CALL CDGET 



RO 



GET OUTER LD DATA INTO CDBUF 

KEEP SCANNING OUTWARD 

GET POINTER TO OUTER-MOST LOGICAL DISK 

GET POINTER TO TEXT BUFFER FOR PRTFNM 

Get address of mount entry 

Get mount entry into CDBUF 

GET POINTER TO FILE NAME 

FORMAT THE FILE NAME 

PUT COLON AFTER FILE NAME 

IS THERE ANOTHER NAME? 

BR IP ye:s 

POINT BACK TO LAST COLON 
TAB UP TO COLUMN 6 

FILL WITH TRAILING SPACES 

PUT IN END OF STRING MARKER 

PRINT THE LOGICAL DISK SPECIFICATION 

GET BACK MOUNT TABLE INDEX 

Get address of mount entry 

Move entry into CDBUF 



Print numbers of jobs that have this device mounted 



4*: 



7*: 



MOV 


#1, R5 


MOV 


#1,R3 


MOV 


#CDEUF+CD*JOB, RA 


BITB 


R3, (R4) 


BEG 


5* 


. TTYOUT 


#40 


CMP 


R5, #10. 


BHIS 


10* 


. TTYOUT 


#40 


CALL 


PRTDEC 



10*: 


CALL 


PRTDEC 


5*: 


ASLB 


R3 




BCC 


6* 




INC 


R4 




ROL 


R3 


6*: 


INC 


R5 




CMP 


R5, #nhnf:s 




BLOS 


7* 



START WITH v^OB # 1 

GET MOUNT FLAG FOR viOB # 1 

POINT TO TABLE WITH JOB BIT FLAGS 

IS DEVICE MOUNTED BY THIS JOB? 

BR IF NOT 

PRINT A SPACE 

IS THIS A 2 DIGIT JOB NUMBER? 

BR IF YES 

PRINT EXTRA SPACE FOR COLUMN ALIGNMENT 

PRINT JOB NUMBER 

SHIFT OVER MOUNT FLAG 

BR IF DID NOT SHIFT OUT OF BYTE 

POINT TO NEXT BYTE 

RESET FLAG BIT 

ADVANCE JOB NUMBER 

CHECKED ALL JOBS? 

LOOP IF MORE TO CHECK 



Finished with this mount entry 



8*: 



. PRINT 
JMP 



#CRLF 
1* 



>END LINE 

.: Go back and print info for next device 



F-ini&hed checking ail ent'c:ies in mount table 



2*: 



3*: 



TST 


BLKO 


BNE 


3* 


. PRINT 


#NONEMS 


F i n i shed 




MDV 


( SP ) +> R 


MOV 


( SP ) +, R 



WERE THERE ANY MOUNTED DEVICES? 
BR IF YES 
PRINT "(NONE)" 
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172 007653 01260;3 

173 007654 01260;.» 

174 007656 012601 

175 007660 000207 



MOV 


iSF)+>ir3 


MOV 


(SP)+, r;2 


MOV 


<SP)+, Rl 


RETURN 





TBKSHO — Keyboam^ 
DATE 



3 








4 








5 


007662 






6 


007670 


005700 




7 


007672 


001406 




S 


007674 


004767 


OOOOOOG 


9 


007700 






10 

1 1 


007706 


000403 




12 


007 710 






13 


007716 


000207 




14 








15 








16 








17 








IS 








19 


007720 


004767 


OOOOOOG 


20 


007724 






21 


007732 


000207 




23 








24 








25 








26 








27 


007734 






2S 


007742 


012703 


0000000 


29 


007746 


005002 




30 


007750 


071227 


000144 


31 


007754 


010205 




32 


007756 


004767 


0000000 


33 


007762 






34 


007772 


010305 




35 


007774 


004767 


0000000 


36 


010000 






37 


010006 


000207 




38 








39 








40 








41 








42 








43 


010010 


004767 


OOOOOOG 


44 


010014 


000207 
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. SBTTL , DATF- 
Display current daif. 



SHODAT: . DATE 

TST RO 

BEQ 1* 

CALL PRTDAT 

. PRINT #CRLF 

BR 9* 

1*: .PRINT #NODAT 
9$: RETURN 

. SBTTL 



GET CURRENT DATE 
IS SYSTEM DATE KNOWN? 
BR IF NO DATE ENTERED 
DISPLAY DATE 



i NO DATE 



TIME 



Display current tim«? of doy. 

SHOTIM: CALL PRTTOD 
.PRINT #CRLF 
RETURN 



; DISPLAY CURRENT TIME 



. SBTTL 



VERB! ON 



Display the TSX-Plus syBtem version number. 



"TSX-PluB Version^" 

Get system version number 

Clear high-order for divide 

Divide R2-R3 by 100 

Get major version number 

Print major version number 

Print decimal point 

Get fractional version number 

Print fractional version number 

Terminate print line 



. SBTTL . UBL 
Display computer usage information for current job. 

PRTflM ; PRINT CONNECT AND CPU TIME FOR JOB 



SHOVER: .PRINT 


#TSXVER 


MOV 


#TSXVRS, R3 


CLR 


R2 


DIV 


#100. , R2 


MOV 


R2.. R5 


CALL 


PRTDEC 


. TTYOUT 


#'. 


MOV 


R3.. R5 


CALL 


PRTDC2 


. PRINT 


#CRLF 


RETURN 





SHOUSE: CALL 

RETURN 



i 
t 

4 



TSKSHO - 


— Keyboard SHOU 


Command 


1 
2 
3 


INSTALL 












4 








5 


010016 


010546 




6 


010020 


004767 


0000000 


7 








8 








9 








10 


010024 






1 1 


010032 






12 








13 








14 








15 


1 0040 


016705 


0000000 


16 


010044 


010567 


OOOOOOG 


17 


010050 


012700 


OOOOOOG 


IS 


010054 


104375 




19 


010056 


005767 


OOOOOOC 


20 


010062 


001402 




21 


010064 


004767 


000016 


22 


010070 


062705 


OOOOOOG 


23 


010074 


020567 


OOOOOOG 


24 


010100 


10376.1. 




25 








26 








27 








28 


010102 


01260::. 




29 


010104 


000207 
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. SBTTL JNtriALL 

Show information about installed programs 



MOV 
CALL 



R5. -(SP) 
CKSYPV 



i Require SYSPRV privilege to do this 



Print title lines 



PRINT #TM$IN1 



Begin loop to print information about each installed program 

Point to 1st install table entry 
1*: MOV R5> INGADR ; Set address of entry to get 

Get EMT arg blocfe 

Get the entry to IIBUF 

Is this entry in useT' 

Br if not 

Print info about this program 
2*: ADD #II**SZ,R5 ; Point to next install table entry 

Done all entries? 

Loop if not 



MOV 


INSTBL, R5 


MOV 


R5> INGADR 


MOV 


#INGEMT, RO 


EMT 


375 


rsT 


IIBUF+II$NAM 


BEO 


2% 


CALL 


INSPRT 


ADD 


#II**SZ,R5 


CMP 


R5, INSTBN 


0LO 


1* 


Finished 




MOV 


<SP)+. R'.> 


RETURN 





TSKSHO 



— ■ K ff q b o a r d 
INSTALL 
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i 

€ 
C 
I 



3 
4 








5 








6 








7 


010106 


010146 




8 


010110 


01024v'> 




9 


010112 


010346 




10 
1 1 


010114 


010446 




12 








13 








14 


010116 


012704 


OOOOOOC 


15 


010122 


012703 


0000000 


16 


010126 


004767 


0000000 


17 


010132 


1 1 2723 


000040 


IS 


010136 


020327 


0000210 


19 


010142 


103773 






010144 


1 1 27 1 3 


000200 


21 


010150 






/•iff:' 

23 








24 








25 


010156 


012704 


177756 


26 


010162 


012703 


010406' 


27 


010166 


032367 


OOOOOOC 


28 


010172 


00 1 422 




29 


010174 


005704 




30 


010176 


002406 




31 


1 0200 






32 


010210 


005204 




33 


010212 


000402 




34 


010214 


012704 


000022 


35 


010220 


011301 




36 


010222 






37 


010226 


122127 


000200 


38 


010232 


00 1 402 




39 


1 0234 


005204 




40 


010236 


000773 




41 


010240 


005723 




42 


010242 


005713 




43 


010244 


001350 




44 








45 








46 








47 


010246 


012702 


OOOOOOC 


43 


010252 


012703 


OOOOOOC 


49 


010256 


012700 


OOOOOOC 


50 


010262 


005722 




51 


010264 


001004 




52 


010266 


005723 




53 


010270 


00 1 002 




54 


010272 


077005 




55 


010274 


000434 




56 








57 









Print information about the program whose install entry is in IIBUF. 



I n p u t B : 
IIBUF contains install entry for program. 



INSPRT: MOV 
MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R2, -(3P) 
R3, -(SP) 
R4, -<HP) 



Print the file spec for the program. 



1^: 



MOV 

MOV 

CALL 

MDVB 

CMP 

JBLO 

MOVE 

. PRINT 



#IIBUF+IJ*NAM.. R4; Point to file spec to be converted 



#BLKO,. R3 

EDTFIL 

#■' , (R3)H- 

R3, #BLK0+17. 

1* 

#200, <R3) 

#BLKO 



i Point to result area 

; Convert file spec to asciz form 

; Store space following file spec 

; Filled out to flag area'? 

j Loop if not 

; Store null at end of name 

iPrint the name 



Print names of attribute flags 



8*: 
3*: 

10«: 



4*: 



MOV 

MOV 

BIT 

BEG 

TST 

BLT 

. TTYOUT 

1 WC 

BR 

MOV 

MOV 

. PRINT 

CMPB 

BEQ 

INC 

BR 

TST 

TST 

BNE 



#-18. , R4 

#INSANT. R3 

<R3)+, II*Fi,. 

4* 

R4 

8* 

#'/ 

R4 

3* 

#18. , R4 

(R3), Rl 

Rl 

<R1 )+, #200 

4* 

R4 

10$ 

(R3) + 

<R3> 

2« 



; No attributes printed yet 
; Point to attribute name table 
.0^-IIBUF i Is this attribute set? 
; Br if not 

;Is this the first attribute for program? 
i Br if yes 
; Print slash 
; Count column used by slash 

; Initialize column number 

j Get address of name string 

; Print attribute name 

; f£nd of keyword? 

; Br if yes 

; Count columns 

.:Skip name pointer 

; Any more attributes to check? 

j Loop i f yes 



See if program has any associated privileges 



12*: 



MOV 
MOV 
MOV 
TST 
BNE 
TST 
BNE 
SOB 
BR 



#II*PRV+:riBUP.. R2> Point to privilege flag info 

#II*NPV+IIBUF, R3i Point to negative privilege flags 

#PVNPW, RO ; Oet # privilege words 

<R2)+ ; Any privilege flags set? 

13* .: Br if yes 

(R3)+ ; Any negative privilege flags set? 

13* i Br if yes 

RO; 12* jCheck all privilege words 

11* J No privileges specified for program 



i Print information about special privileges associated with program 



I 
t 

i 

I 

( 

€ 

i 
€ 

i 

4 

4 
« 
I 
4 

I 
I 



TSKSHO - 
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Command MACRO 




INSTALi.. 






58 








< 59 


010276 






60 


010304 


00 570'! 




61 


010306 


00240.) 




i 62 


010310 


005404 




63 


010312 


162704 


000007 


64 


010316 


012702 


OOOOOOC 


( 65 


010322 


012703 


000001 


66 


010326 


012700 


000022 


67 


010332 


00476? 


OOOOOOG 


i 6S 


1 0336 


01270.2 


OOOOOOC 


69 


010342 


012703 


177777 


70 


010346 


012700 


000022 


< 71 


010352 


004767 


OOOOOOG 


72 


010356 






73 








( 74 








75 








76 


010366 






1 77 








78 








79 








< SO 


010374 


012604 




81 


010376 


012603 




82 


010400 


012602 




1 83 


010402 


01260.1 




84 


010404 


000207 




85 








i 86 








87 








88 


010406 


OOOOOOG 


010510' 


i 89 


010412 


OOOOOOG 


010523' 


90 


010416 


OOOOOOG 


010532' 


91 


010422 


OOOOOOG 


010537' 


1 92 


010426 


.OOOOOOG 


010556' 


93 


010432 


OOOOOOG 


010565' 


94 


010436 


OOOOOOG 


010575' 


i 95 


010442 


OOOOOOG 


010602' 


96 


010446 


OOOOOOG 


010610' 


97 


010452 


OOOOOOG 


010617' 


i 98 


010456 


OOOOOOG 


010633' 


99 


010462 


OOOOOOG 


010637' 


100 


010466 


OOOOOOG 


010643' 


< 101 


010472 


OOOOOOG 


010652' 


102 


010476 


OOOOOOG 


010660' 


103 


010502 


OOOOOOG 


010665' 


i 104 


010506 


000000 




105 








106 


010510 


123 


111 116 




010513 


107 


HA 105 




010516 


103 


110 101 




010521 


1 2,'' 


200 


4 107 


010523 


116 


117 127 




010526 


10.! 


1 1 1 1 24 




01053.i. 


200 




< 108 


010532 


110 


111 107 




010535 


lio 


200 
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1 3* : 



14*; 
15*: 



. PRINT 


#TM*PVi., 


TS7 


R4 


BLl 


14* 


NEG 


R4 


SUB 


#7. , R4 


MOV 


#II*PRV+.TI3JUF. R2 


MOV 


#+l,R3 


MOV 


#18. ,R0 


CALL 


PRVLST 


MOV 


#11 *NP V+ 1 1 BUF 1 R2 


MOV 


#-1. R3 


MOV 


#18. ,R0 


CALL 


PRVLST 


. TTYOUT 


#') 



Terminate the print l:inf» 



11*: 



.PRINT #CRLF 



Print •'/PRIV=(" 

Any attributes printed? 

Br if not 

Make R4 negative to suppress leading comma 

Increase column count 

Point to ujords with privilege flags 

Select positive flags this time 

Wrap-around to column IS 

Print selected privileges 

Point to words ujith deselected priv flags 

Select negative flags 

Set wrap-around column 

F*rint deselected privileges 

Terminate privilege list 



J End line 



F i n i B ft e- d 

MOV 
MOV 
MOV 
MOV 



<SP)+,R4 
<SP)+, R3 
(SP)+, R2 
<SP)+, HI 



RETURN 



Table of install program attributes and names 



INSANT: 



WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 



AF*SCA, 
AF*NOW, 
AF*HIE, 
AF*NOI, 
AF*IOP, 
AF*MEM, 
AF*PLK, 
AF*DBG, 
AF*BYA> 
AF*TPO, 
AF*DUP, 
AF*IND, 
AF*UCL. 
AF*SET, 
AF*CCA, 
AF*NPW, 




1* 

2* 

3* 

4* 

5* 

6* 

7* 

8* 

9* 

1 0'* 

lltp 

I2'r> 

13* 

i;:/* 

16f. 



1*: 



3$: 



ASC II /SI NGl..ECFIAf < / <200:. 



ASCII / NO W A I T ./ <200: 



ASCII /HIGH/<200> 



TSKSHO ■ 


— Keyboard 


SHOW 


Command 


MACRO V05. 04 




INSTALL 










109 


010537 


116 


117 


116 


4*: 




010542 


111 


116 


1 24 






01054 5 


lOb 


122 


101 






010550 


103 


124 


111 






010553 


126 


105 


200 




110 


010556 


111 


117 


120 


5*: 




010561 


101 


107 


105 






010564 


200 








111 


010565 


ii:i 


105 


1 1 5 


6*: 




010570 


114 


117 


103 






010573 


1 1 3 


200 






112 


010575 


114 


117 


103 


7^: 




010600 


113 


200 






113 


010602 


104 


105 


102 


S*: 




010605 


12;j 


107 


200 




114 


010610 


102 


131 


120 


9*: 




010613 


10.1 


123 


116 






010616 


200 








115 


010617 


1 24 


122 


101 


10*: 




010622 


116 


123 


120 






010625 


101 


122 


105 






010630 


116 


124 


200 




116 


010633 
010636 


1 04 
200 


125 


120 


11«: 


117 


010637 
010642 


111 
200 


116 


104 


12*: 


113 


010643 


124 


123 


130 


13*: 




010646 


i2;> 


1 03 


114 






010651 


200 








119 


010652 


123 


105 


124 


14*: 




010655 


i2r> 


1 20 


200 




120 


010660 


123 


103 


103 


15*: 




010663 


lOi 


200 






121 


010665 


116 


117 


127 


16*: 




010670 


UJ 


116 


104 






010673 


117 


127 


200 




122 
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ASC I I / NON I NTER ACT 1 VE/ <200> 



. ASC I I / I0PAGE/<200> 

. ASCII /MEMLDCK/<:2<K» 

. ASCII /L0CK/<200> 

.ASCII /DEBUG/ <200> 

.ASCII /BYPASiM/<200> 

. ASCII /TRANSPARENT/<200> 

. ASCII /DUP/<200> 

. ASCII /IND/<200.> 

.ASCII /TSXUCL/<200;> 

. ASC 1 1 /SETUP /<200> 

. ASCII /SCCA/<:200.> 

, ASCII /N0WIND0W/<:200.> 

. EVEN 



TSKSHD -— Keq board 
REGIONS 



1 
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€ 



3 








4 








5 


010676 


010246 




6 


010700 


010446 




7 


010702 


005002 




8 








9 








10 








11 


010704 


i 2704 


0000000 


12 


010710 


004767 


000106 


13 


010714 


062704 


0000000 


14 


010720 


020427 


0000000 


15 


010724 


103771 




Ih 








17 








IS 








19 


010726 


016704 


0000000 


20 


010732 


020467 


0000000 


21 


010736 


103021 




22 


010740 


010467 


0000000 


23 


010744 


012767 


0000000 0000000 


24 


010752 


012700 


0000000 


25 


010756 


10437^5 




26 


010760 


012704 


0000000 


27 


010764 


004767 


000032 


28 


010770 


016704 


0000000 


29 


010774 


062704 


0000000 


30 


011000 


000754 




31 








32 








33 








34 


011002 


005702 




35 


011004 


001003 




36 


011006 






37 








38 








39 








40 


011014 


012604 




41 


011016 


0i260r' 




42 


011020 


000207 





SBTTL . 
Show named renions 



REOluNS 



SHORE 0: MOV 
MOV 

CLR 



R2, -(SfJ) 
R4, ~(BP) 
R2 



1*: 



j Clear count of- # rt^gions shown 
Fir&t 5ho!i) information about all private regions 



.;F'oint to first private Region Control Blk 
jDisplaii info about this region 
;Point to next RCB 
i Checked all RGB's? 
; Br if not 



MOV 


#RCBBAS. R4 


CALL 


RGNDSP 


ADD 


#RC**SZ, R4 


CMP 


R4, #RCBEMD 


BLO 


1* 



Now show information about all shared regions 



2S: 



MOV 


SHRRCB, R4 


CMP 


R4, SHRRCM 


BHIS 


3* 


MOV 


R4, PEKADR 


MOV 


#RC**SZ, PEKSIZ 


MOV 


#PEKEMT.. RO 


EMT 


375 


MOV 


#BLKO> R4 


CALL 


RGNDSP 


MOV 


PEKADR, R4 


ADD 


#RC**S2> R4 


BR 


2« 



Point to 1st shared RCB 
Checked all shared RCB's? 
Br if yes 

Set address of RCB 
Get # bytes to fetch 
F*oint to EMT arg block 
Move RCB to BLKO buffer 
Point to RCB in our buffer 
Display info about the region 
Recover real RCB address 
j Point to next RCB 



If there were no named regions, print a message. 



31i; 



9* : 



TST 


R2 


BNE 


9* 


. PRINT 


#TM*NNR 


F i n i s h e d 




MOV 


<SP)+, R4 


MOV 


<SP)+, R2 


RETURN 





J Were there any named regions? 

j Br if yes 

j No named regions 



d 
« 



TBKSHO — Keuboard SHOW Command MACRO V05. 04 
REGIONS 



Mem day 21 -Dec -87 13:04 Paqc? 25 






1 
p 

3 

4 

5 

6 

7 

8 

9 
10 
1 1 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 

31 01 

32 01 

33 01 

34 01 

35 01 
36 

37 
3S 

39 01 

40 01 



m 1 n'--:: 



01 

01 
01 
01 
01 
01 
01 



01 
01 

01 



01 
01 



41 

42 
43 
44 
45 

46 01 

47 01 

48 01 

49 01 

50 01 

51 01 

52 01 

53 01 

54 01 



57 



1030 
1032 
1040 
1042 
1050 
1052 



1054 
1056 

1 060 



1062 
1064 
1 066 
1074 
1102 



1104 
11 10 
1114 
1120 



1124 
1 1 30 
1132 
1 136 
1140 
1144 
1 1 50 
1154 
1164 



032764 
00 1410 
032764 
001004 
032764 
001001 
000207 



0101 46 
010346 

010546 



00570;2 
00 1 006 



005202 



016400 
004767 
016400 
004767 



016401 
005000 
07 1 027 

Oioooij 

012703 
004767 
116105 



Display a line of information about a named region. 

Inputs: 
R4 = Pointer to Reqion Control Block. 
R2 = Count of number of active regions so far. 

Outputs: 
R2 - Incremented if this iB an active region. 

RGMDSP: 

See if this RGB is for an active^ named reqion 



0000000 
OOOOOOG 
0000000 



OOOOOOG 
OOOOOOG 
OOOOOOG 



1*: 



B.IT 
BEQ 
BIT 
BNE 
B .1 T 
BWE 
RETURN 



#RC«U3E» RC*FLG(R4) i Xs this an active RCB? 

1* ; Br i f not 

#RC*LCG. RC-&FL.G<R4.^ il's this a local copy of a global RCB? 

1* i Br if yes — We will list global RCB 

#RC*GBL. RCiiFLG(R4) ils this a named region? 

2* i Br if yes 



i 

I 
I 
I 

< 



This is an RCB for an active named region. 



MOV 
MOV 
MOV 



R 1 , ~ < tiP ) 
R3, -i'dP) 
R5, -(BP) 



3*: 



See if this is the Ist rt-gion 

TBT R2 

BNE 3* 

.PRINT #TM$RD1 

. PRINT #TM$RD2 

INC R2 

Display name of the region 



OOOOOOG 
OOOOOOG 
000002G 
OOOOOOG 



OOOOOOG 

000020 

000006 

OOOOOOG 

011374' 



MOV 
CALL 
MOV 
CALL 



RC$NAM(R4),R0 
PRTR50 

RC«NAM+2<R4), RO 
PRTR50 



Display size of region 



004767 OOOOOOG 



MOV 


RC«LEN(R4).. Rl 


CLR 


RO 


DIV 


#16. , RO 


MOV 


RO, R5 


MOV 


#6. , R3 


CALL 


PRTFIX 


MOVE 


FRAC64(R1 ),R5 


, TTYOUT 


#'. 


CALL 


PRTDEC 



Is this the first region? 

Br if not 

Display title line 1 

Display title line 2 

Count another region displayed 



Get 1st 3 chars of name 
Print them 

Get 2nd 3 chars of name 
Print them 



Get # 64-byte blocks allocated for region 

Clear high-order for divide 

Conver to # Kb 

Get # whole K 

Print in 6 digit field 

Print # whole" Kb 

Convert to decimal Kb fraction 

Print decimal point 

Print decimal digit 



Display type of region 



4 
€ 



TSKSHO 



58 

59 

60 

6i 

62 

63 

64 

65 

66 

67 

6S 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

1 1 1 

112 



— Keyboard SHOW Command 
REGIONS 
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0111 70 
011176 
01 1204 
011206 
1 1 2 1 ^'i 
011222 
011224 



01 1232 
011236 
011240 
011244 



011250 
011254 



011264 
011270 
011274 
01 1302 
011304 
01 1312 
011314 



011322 
1 1 330 
011336 
011340 
1 1 346 
011350 
011356 



011356 



Oil 364 
1 1 366 
011370 

011372 



011374 
011377 
011402 



032764 
001407 



000403 



OOOOOOG 0000000 



.PRINT #SPACE2 i Print 2 tipaces 

BIT #RC$PVT, RC*FLG<R4) ; Is this a private or shared region? 



00620!) 
012703 
004767 



116405 
012703 

004767 



1 2703 
00476/ 
032764 
00140'! 

00040;.i 



032764 
00 1 004 

ooo4o;:s 



012605 
012603 
012601 

000207 



000 
002 
004 



000000<? 

000005 
0000000 



0000000 

000005 

0000000 



000004 

OOOOOOG 

OOOOOOG 



4$: 



F)*- 



BEQ 4* 

.PRINT #TM*L.v;L 

.PRINT #SPACH1 

BR 5* 

. PRINT #TM*GBL 



Dr if sharpd 

Say region is local to job 

Print extra space 



; Say regioji is global 
Print number of job that created region 



MOVE 


Br*niJM.' DA 1 . 


f;5 


ASR 


R5 




MOV 


#5. , R3 




CALL 


PRTFIX 





Print attachment {ube) ruunt 

MOVE RC$CNT<n4), R5 
MOV #5. , R3 
CALL PRTFI.X 

Show if shared 



.:(^nt # of job that created region 

; Convert to # 

i Print 5 digit field 

i Print job # 



i Get attachment count 
i Print in 5 digit field 
; Print use count 



OOOOOOG 



NOV 
CALL 
BIT 
BEO 



Print 4 spaces 



#4. . R3 

PRTSP<: 

#RC*EXC.. RC1iFLG<R4) >Is this region sharabie? 

6* i Bt if yes 



6*: 



7*: 



. PRINT #NOTXT 
BR 7* 
.PRINT #YESTXT 

Show if AGE is set 



.; Print 'No ' 
5 Print 'Yes' 



OOOOOOC OOOOOOG 



.PRINT #SPACE3 j Print 3 spaces 

BIT #RC*AGE!RC^AEP. RC*FLG(R4) ;Is AGE enabled? 

BNE 8* i Br if yes 

.PRINT #NOTXT j Print 'No' 

BR 9* 

; Pt int 'Yes ' 



£3$: .PRINT 


#YESTXT 


9*: 




; Terminate print line 


> 

. PRINT 


#CRLF 


i F i n i s h e d 




MOV 


<SP)+, R5 


MOV 


<SP>+,R3 


MOV 


(SP)+, !<1 


RETURN 





001 
002 
004 



001 

003 
005 



5 Values to convert # Prattional 64~byte blocks to tenths of Kb 
FRAC64: . BYTE 0. . 1. , 1. , 2. , 2. .. 3. , 4. , 4. , 5. , 6. , 6. . 7. , 7. , 8. , 9. , 9. 
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REGIONS 



01 1405 


00,^ 


006 


007 


011410 


007 


010 


on 


1 1 4 1 3 


1 1 






113 









. EVEN 



TSKSHO 



■■"• >\ sub oar 
PRIVILEGH 
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. SB TTL 



FinVlLEQES 



3 








4 








5 


011414 


010246 




6 


011416 


010346 




7 


011420 


010446 




8 








9 








10 








1 1 








12 


011430 


012702 


0000000 


13 


011434 


012703 


000001 


14 


011440 


012704 


177750 


15 


1 1 444 


012700 


000030 


16 


011450 


004767 


0000000 


17 


011454 






18 


011462 






19 








20 








21 








22 


011470 






23 


011476 


012702 


0000000 


24 


1 1 502 


012704 


177750 


25 


011506 


012700 


000030 


26 


011512 


004767 


0000000 


27 


0115 1 /. 






20 








29 








30 








31 


1 1 524 


012604 




32 


011526 


012603 




33 


011530 


012602 




34 


011532 


000207 





Shoui privileges 



SHOPRV: MOV 
MOV 
MOV 



R2, -<CiP) 
R3, ~iUP) 
R4> ~<SP) 



List authorized pri vi .i ofif <.. 



MOV 


«PRIVAO, H2 


MOV 


#+1, R3 


MOV 


#-24. , R4 


MOV 


#24. , RO 


CALL 


PRVLSf 


. PRINT 


#CRLF 


. PRINT 


#CRLF 



List current privile9i?5 

. PRINT #TM*PVC 

MOV #PRIVCO, R2 

MOV #-24. , R4 

MOV #24. , RO 

CALL PR VLSI 

.PRINT #CRLF 



i n i s h e cl 




MOV 


<SP)+, R4 


MOV 


<SP)+, R3 


MOV 


(SP)+, R2 


RETURN 





n T* -i ^.^ •! 1 £> It a c: 



Author! z w d 
Point to priv flag vector- 
Show positive privileges only 
Start at column 24 
Wrap around to col 24 
L.. i s t privileges 
Terminate last line 
Put in a blank line 



.; Current privileges 

; Current privilege flags 

.; Start at column 24 

; Wrap around to col 24 

.! I ,.. ist privileges 
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;jL 



4 

5 

6 

7 

8 

9 

.1.0 

1 1 

12 

13 

14 

15 

16 

17 

IS 

19 

20 



24 
25 



27 
28 
29 
30 
31 
32 
33 
34 
3!:> 
36 
37 

;39 

40 
41 
42 
43 

4S 
46 
47 
48 
49 



, SBTTL . iii 
Display single line editor status. 



01 
01 
01 



1534 
1536 
1540 



01 0246 
1 0346 
010446 



SHOSLE: MOV 
MOV 
MOV 



R2, -<SP) 
R3, -<BP.) 
R4, -<SP) 



ni 1 "^.d::) 



F'rint message heading 

PRINT #TM$SLi 
Print ON or OPF 



1550 

1556 
1560 
1564 

1 566 



01 
01 
01 
01 
01 
011572 



032761 
00 1 003 
012702 
000402 
1 2702 



OOOOOOG OOOOOOG 

0000000 

OOOOOOG 



01 
01 
01 



1 576 
1602 
1 606 



01 
01 
01 



1612 
1616 



01 
01 
01 



1626 
1632 

1636 



012704 
012703 
004767 



012704 
012703 
004767 



012704 
012703 
004767 



OOOOOOG 
OOOOOOG 
000046 



OOOOOOG 
OOOOOOG 
000032 



OOOOOOG 
OOOOOOG 
000016 



011642 



011650 
011652 
011654 
01 1656 



012604 
012603 
012602 
000207 



BIT 


#*SLON, LSW 


ONE 


1* 


MOV 


#TM*OFF> R2 


.BR 


2* 


1%: MOV 


#TM«DN> R2 


2*: . PRINT 


R2 


; Check for KED mode 


MOV 


#*SLKED.. R4 


MOV 


#TM*KED, H3 


CALL 


SLCKFL 



Chpck for TTY mode 



MOV 


#*SLTTY, R4 


MOV 


#TM*TTY, R3 


CALL 


SLCKFL 



Check for SUBSTITUTE mode 



MOV 


#*SLLET, R4 


MOV 


#TM*SUB, R3 


CALL 


SLCKFL 



Terminate the print line 

. PRINT #CRLF 
F i ? i i £ h e d 



MOV 


(SP)+, R4 


MOV 


<SP)+, R3 


MOV 


( SP ) +.. R2 


RETURN 





" <^l c -h ;a +! 1 1 c • 



-, Br if yes 

i Point to OFF message 

; Point to ON message 

j Pr int text 



Get Ked flag 



J Get flag 

jPoint to text strinq 



;Get flag 

>Point to text string 



Terminate print line 
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;^>L. 



3 
4 
'J 
a 
7 
8 
9 

10 011660 

1 1 
12 
13 

14 01 1 660 

15 

16 

17 

IB 011670 

19 011674 

20 011676 
21 

22 

23 

24 011704 

25 



28 0117:10 000207 



030461 

ooioo;< 



0000000 



■> CbecU of a SL option flag is set in LSW7. and if it is print that the 
i option i5 on; otberwi •:■•(?) print that the option is off. 

; I n p u t ii ; 

i Rl = Job index numbei- 

i R3 = Pointer to text string for option name 

> R4 = Flag bit to be tettcd in LSW7 

SLCKFL: 

i Print a leading comma 

. TTYDUT #54 ; Print comma 

; If option flap is not set* print "NO" 



BIT R4, LSW7(R1) 

BME 1* 

. PRINT #TM*NO 

> 

; Print the name of tho option 
1*: . PRINT R3 
> I" i n i B h e ci 

RETURN 



iJs the option flag setT' 
i Br if yes 
J Print NO 



jF^rint the option name 



TSKSHO 



•• ~ K e y fa o a r 
RUN- r I MPS 
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. BBITL 



RUhl -UMEi 



4 








5 


011712 


010146 




6 


011714 


012701 


0000000 


7 


1 1 720 


005000 




S 


011722 


020127 


0000000 


9 


1 i 726 


103023 




10 


1 1 730 


026127 


0000000 0000000 


■I 1 


/■\1 1 "T'-JZ. 


\^\^ ^ -T J. » 




12 


011740 


016100 


0000000 


13 


011744 


005201; 




14 


1 1 746 


004767 


OOOOOOG 


15 


011752 


016100 


000002G 


16 


011756 


004 7&7 


OOOOOOG 


17 


011762 






18 


011770 


062701 


OOOOOOG 


19 


1 1 774 


000752 




20 


011776 


00 570 n 




21 


012000 


001003 




22 


012002 






23 


0120.10 


012601 




24 


012012 


000207 





J — 












Show 


Tun-t imer> 


SHOSRT: 


MOV 


R 1 , - < SP ) 






iiOV 


#RDB,R1 






CLK 


R5 


iii: 




CMP 


R1,#RDBEND 






BHIS 


2* 






CMP 


RT$DEV(R1),#DMYDE 








A it 






MOV 


RT*NAM<R1 ),R0 






INC 


R5 






CALL 


PRTR50 ■> 






MOV 


RT*NAM+2<R1 ). RO , 






CALL 


PRTR50 






. PRINT 


#CRLF .: 


4f : 




ADD 


#RT$*SZ>R1 i 






BR 


J* 


2*: 




Tsr 


R5 ■> 






;iJNE 


3* ; 






. PRINT 


#NONEMS i 


3^^ : 




MOV 
RETURN 


^SP)^■> Hi 



POINT TO FIRST RUN-TIME DESCRIPTOR BLOCK 
Count run-times in R5 
ANY RUN-TIMES? 
DR IF FINISHED 



A r 1^ w »/ 



GET 1ST 3 CHARS OF RUN-TIME NAME 

Count another run-time 

PRINT THEM 

GET 2ND 3 CHARS OF NAME 

PRINT THEM 

END LINE 

POINT TO NEXT DESCRIPTOR BLOCK 

WERE THERE ANY RUN -TIMES? 
JJR IF YES 
PRINT NONE 



TSKSHC 
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C'Ui.. 



Sj;(iTL 



'ddi 



3 
4 



s 








6 


012014 


010246 




a 








9 








10 


012016 


10S767 


0000000 


1 1 


1 2022 


00140',; 




12 


1 2024 


012702 


0000000 


13 


1 2030 


020227 


0000000 


14 


012034 


103404 




15 


1 2036 






16 


012044 


00042;> 





17 
18 



20 


012046 






21 


012054 


016200 


0000000 


22 


1 2060 


020027 


0000000 


23 


012064 


00i40;> 




24 


OI2O06 


004767 


0000000 


25 


012072 






26 


012100 


062702 


0000000 


27 


012104 


020227 


0000000 


28 


012110 


103761 




29 


1211 2 






30 








31 








32 








33 


012120 


012602 




34 


012122 


000207 





SHOW SPCiOL 

List the names of the !::• p {i o 1 e d devices. 

BHOSPL: MOV R2.. -(SP) 

See if there are any tpooled devices 



3*: 



TSTS NSPLDV 

Ptrra '^* 

d./ (— wi t_f ••• 

MOV #SDCB, R2 

CMP R2, #SDCBND 

HLO 1* 

. PRIMT #TM$NBD 

BR 9* 



Are there any spooled devicesT' 

D T* if not 

Point to first spooled device control block 

Are there any spooled devices?' 

Br if there are spooled devices 

There are no spooled devices 



There are spooled devict-b* print their names 



l*: 



4$: 



. PRINT #TM$SDN 

MOV SDNAME<R2>.. RO 

CMP RO, #DMYDPV 

BEQ 4* 

CALL PRTR50 

. PRINT #SPACE2 

ADD #SDCBSZ, R2 

CMP R2, #B1)CBWD 

BLD 2* 

. PRINT #CRLF 



Print heading 

Get RAD50 name of spooled device 

Un in stalled device? 

B r i f y e s 

Print the name 

Print 2 spaces 

Point to next SDCB 

Are there more?' 

Br if yes 

Terminate the line 



P i n i s h e d 



9^: 



MOV 

R FT URN 



(SP)+, R2 



TSK SHQ — K e y b a r d SHOW 
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SBTTL 



GUlilSL'l 



€ 



4 

5 

6 

7 

8 

9 

10 

1 1 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 
27 
2B 
29 
30 
31 
32 

34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
413 
46 
47 
4S 
49 
50 
51 
52 
53 
54 
55 
56 
57 



012124 
012126 
012130 
012132 
012134 



0.1 0146 
010246 
010346 
010446 
010546 



012136 004767 0000000 



012142 
012146 
012152 
012154 
012156 
0121ci2 
012164 
012172 



012174 
i 2200 
012202 



012206 

012210 



oi; 



Oli 



01270:i 
012704 
005714 
001007 
062704 



00047;'^ 



Oio.-'O;.' 
005003 
012704 



005714 
001453 



010200 
004767 



000010 
0000000 



000010 



0000000 
OOOOOOG 



0000000 



1 2326 
012230 



i 2244 
012230 
012256 
1 2260 
1 2264 
012270 



0.i 0346 
012703 
004767 
112723 

.1. 1 e:/. / 1 \3 

012603 
01 6305 
004767 



OOOOOOG 
OOOOOOG 
000133 
000200 



OOOOOOG 
OOOOOOG 



SH(.iy SU.BSET 

Display information about loqicai disks. 



GHOSUB : 


MOV 


Rl, 


- < BF ) 




MOV 


R2.. 


- < SP ) 




MOV 


R3.. 


- < rip ) 




MOV 


R4, 


" ( SP ) 




MOV 


R5, 


-- i B\' ) 



Fir&t do a SET LD CLEAiM to update logical disl< information 

CALL LDCLEN ; DO SET LD CLEAN 

Make a fast scan and Fee if any logical disks are mounted 



GET # LOGICAL DISK ENTRIES 

POINT TO FILE NAME TABLE 

IS THIS DISK ASSIGNED TO A FILE? 

BR IF YES 

POINT TO NEXT ENTRY IN TABLE 

LOOP IF MORE TO CHECK 

NO LOGICAL DISKS MOUNTED 



Now begin to display logical disk information 



MOV 


#8. , R3 


MOV 


#LDNAME. R4 


TST' 


(R4) 


BNE 


6* 


ADD 


#S. , R4 


St:iB 


R3.. 5* 


. PRINT 


#NOLDMT 


BR 


9* 



6$: 



MOV 


R SOLDO, R2 


CLR 


R3 


MOV 


#LDNAME, R4 



; GET "LDO" NAME 

.: INIT DISK TABLE INDEX 

i POINT TO FILE NAME TABLE 



See if next logical disk unit is assigned 



TST 

BE<3 



<R4.> 
1* 



Print logical disk name 

NOV R2, RO 
CALL PRTR50 
. PRINT ttSUBARO 

Print the file name 



IS DISK ASSIGNED TO A FILE? 
BR IF NOT 



GET DISK NAME 
PRINT THE DISK NAME 



MOV 


R3, -<SP) 


MOV 


#BLKO, R3 


CALL 


EDTFIL 


MOVB 


#133,. iR3)^ 


MOVB 


#200> iR3) 



. PRINT #BLKO 

MOV <SP)+,R3 

MOV LDSIZE(R3), R5 

CALL PRTDEC 

. TTYOUT #135 



SAVE R3 

EDIT FILE NAME INTO BLKO 

EDIT FILE NAME 

"C" START OF FILE SIZE 

TERMINATE NAME STRING 

PRINT NAME 

GET FILE SIZE 
PRINT IT 

H "I II 



Print "read only" if tlirst i f-i the case 



TSKSHO -- M,ey board 

S-JBGET 



i -:U\- 
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59 
60 
61 
62 
63 
64 
65 
66 
67 
6S 
69 
70 
71 
72 
73 
74 
75 
76 

T/ 
/ .' 

78 
7'9 
80 
81 
82 
S3 
84 
85 



01 
01 
01 



01 
01 
01 

n I 



01 
01 
01 
01 
01 



S3:: 



2324 



£340 
2342 
2346 
2352 
2 J 1.76 



1 2360 
012362 
012364 
012366 
012370 
012372 



00 :i -+u, i 



0000000 OOOOOOG 



BIT #LD$RON. LDFl A0<R3) .; IS IS MOUNTED READ-ONLY 

Bi::Q 3* ■> rsR IF NOT 

.PRINT #RONrXf i PRINT "(read onlq)" 



Print "not aval lab 1 



if that is the case 



00 5763 OOOOOOG 
00 1 003 



00 5202 

6 ;2 1 •'■! 0001 

062703 000002 

020327 000016 

101713 



01260;< 
01 2604 
012603 
012602 
012601 
000207 



3%: TST LDPDEV<R3) 

BNE 4* 

. PRINT #NOTAVL 

4*: . P.RINT ttCRLF 

y 

■> Advance to next loqical diBk 



1*: 



7^: 



INC 


R2 


ADD 


#8. , R4 


ADD 


#2, R3 


CMP 


R3, #14. 


BLOS 


2* 


F i n i •■> h e d 




MtliV 


(SP)+, R5 


MOV 


(SP)+, H4 


MOV 


<3P)+, r:< 


MOV 


<SP)+, r;' 


MOV 


<SP)+, Rl 


RETURN 





i IS FILE CURRENTLY ACTIVE7' 

; }3R IF YES 

; NOT AVAILABLE 

: PRTWT THP I TMP 



i ADVANCE LOGICAL DISK NAME 
; ADVANCE NAME POINTER 
; ADVANCE TABLE POINTER 
; DONE ALL? 
i BR IF NOT 



Tb-KBHO ~- 



- 


-- H e i.i D 
Vi-1 


3)-d bMUk 


uommanf) 










3 








4 








5 


012374 


012767 


105646 


6 


012402 


00 5067 


000002G 


7 


012406 






S 


012414 






9 


012434 


103004 




10 


012406 






•I 1 
J. J. 


.' \ i '" A A A 


,'-,r\'-^..'!-?y, 

\J \..- ■*■ I ^ v^ 




12 








13 








14 








15 


012446 






16 


012510 


103451 




17 


012512 






IS 


012520 


016705 


0000000 


19 


012524 


1 2703 


000006 


20 


012530 


00 4767 


0000000 


21 


012534 






22 


012542 


016705 


0000020 


23 


012546 


004767 


OOOOOOG 


24 








2'o 








26 








27 


012552 






28 


012614 


J 03407 




29 


01261 to 






30 


0J2624 


01:r>705 


0000000 


31 


012630 


00 4 767 


0000000 


33 


012634 






34 


012642 






35 


012650 






36 


012656 


000207 
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. BBTTL. . Vi-1 
SHOW CURRENT VH BASE, TOP AND DEVICE SIZE 



OOOOOOG SHOWVM: MOV #-RVMO, FILNAM ; Set device name Vi-f: 

CLR FILNAM+2 .= No File name 

. SERR i Trap . LOOKUP error & 

.LOOKUP #XAREA, #1, #t-lLNAM ; Get channel to VMO: 

BCC 1* ; Branch if we got VM 

.PRINT #SHVTX4 ; "VM not installed" 

na otk : e: V -i +• 4 * r,n KJM 



1*: 



Get current base and ton 

, SPFUN #.XAREA, #1, #372, #BLKO, #0, #0 ; Request VM base and top 



BCS 8* 

.PRINT #SHVTX1 

MOV BLKO. R5 

MOV #6, R3 

CALL OCTFIX 

. PRINT #SHVTX2 

MOV BLKO+2, R5 

CALL OCTFIX 



Ignore command on error 
"' VM Base:^" 
Retrieve base 
Six digit display 
Display it 
" Toi,)^=^" 
Retrieve top 
Display it 



Get current device size in blocks from handler 

SPFUN #XAREA, #1, #373, «BLKO, #0, #0 i Request VM device size 

BCS a* ; Sk ip si le i f bad 

.PRINT #SHVTX3 i " Siie-^" 

MOV BLKO, R5 ; Retrieve size 

CALL PRTDEC ; Display decimal size in blocks 

;Only close if successful open 

i Format di sp lay 

; Give back error trapping 



&■$: 


. CLOSE 


#1 


9*: 


. PRINT 
. HERR 
RETURN 


#CRLF 
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SYSTAT <■?.: WHO) command 



3 
4 
5 

6 012660 004767 171004 

7 012664 000167 0000000 
8 

9 
10 
1 1 

13 012670 004767 0000000 

14 012674 000167 0000000 



BBTTL SYSTAT (& WHO) command 



THE WHO COMMAND PRINTS OUT A LIST OF ALL LINE NUMBERS 
WHICH ARE LOGOED ON. 



CMDWHO: CALL 
JNP 



SHOJOB 
RDCMD 



5H0W JOB INFORMATION 



. SBTTL USE command 

P ¥^ ri r £i e rr +• K « I I O C ^ j^,f.,-,^'-\ w « I 



CMDUSE: CALL 
JMP 



PRTTIM 
RDCMD 



i PRINT CONNECT AND CPU TIME FOR JOB 



€ 
4 

< 
4 
€ 
i 



TSKSHO ■- 
PRTUSE — 



F r 1 n t B u 



SHOW Conmand MACRO V05. 04 
>tem usage statistics 



Monday 21 -Dec -37 13:04 Page 34 



SBTTL. PRTUSE — Pr-int sustem usage statistics 



4 

5 

6 

7 

8 

<y 

,i, 

1 1 

la 

13 
14 
15 

16 
17 
18 
19 

20 
21 



24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 

36 
37 
3S 
39 
40 
4 1 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



Ul cC ■■uv 
012 ?02 
01c" 704 
(i 12706 



012710 
012716 
012722 
012726 
012730 
012732 
012734 
012740 

012':'46 

\„' J. fZ. r ■...' "I 

012762 
012766 
012770 
012 772 
012/74 
012776 
013000 
!. 1004 



013006 
013010 
1 GiO 1 2 
013014 
1 30 1 6 



013020 
1 3024 
013030 

013034 
013040 

0i30-*'' 
013050 
Oi 305-1 
i U060 
03,306 4 



i 1 ^16 

1 •,.'2^i'6 
010346 
01 0446 



016704 
016705 
000241 
00600-''! 
006005 
0047o7 



01 676''^ 
0167^.7 
012702 
01 2200 
001406 

012201 
001773 
004767 
000 770 



012604 
012603 
01260;? 
01 260 J 
000207 



0000000 
0000000 
0000000 
0000000 
0000000 
0000000 
0000000 
OOi^OOOO 
0000000 
000000 



0000000 
0000000 



0000000 



0000000 
OOOOOOG 
013020' 



OOOOOOG 



0000000 

0000000 

OOOOOOG 

0000000 

000000 

0000000 

OOOOOOG 

000000 

000000 



PRTUSE is called to print the system usage statistics. 



PRTUSE: NOV 

MOV 
MOV 
hiOV 
i Print system 
. PRINT 
MOV 
MOV 
OLO 
ROR 
ROR 
OALL 
. PRINT 



R 1 , " < SP ) 
R2, ~(SP) 
R3, -<SP) 
R4, -(BP) 
up-t ime. 
#UPTMMS 
TMrriTU. o/i 

TMTOTL, R5 

R4 
R5 

PRi'TMI) 
#ORLF 



"UPTIME: " 
OET TOTAL 



UP -TIME <0R TIME SINCE LAST RESET) 



OOOOOOG 
000002G 



Print system usage statistics 



;l$: 



MOV 

MOV 

MOV 

MOV 

BLO 

. PRINT 

MOV 

BEQ 

CALL 

BR 



F i n :t f- h <? d 



2* : 



MOV 
MOV 
("if3V 
MOV 
RETURN 



TMfOTH, DIVSOR 
TMTOTL, DIV30R!-2 
#SUMVEC, R2 
(R2)+, RO 
2$ 

(R2)+. Ri 
1* 

PRTPCT 
1* 



<;SP)+, R4 
<SP)+, r;^ 
<SP)+, R2 
(SP)+, Rl 



DIVIDE TIME VALUE BY 2 TO GET 1/10 SEC UNITS 

SHIFT HIGH-ORDER PART 
AND LOW-ORDER PART 
PRINT TIME VALUE 
TERMINATE LINE 

SET TOTAL UP-TIME AS DIVISOR FOR PERCENTAGE 

POINT TO DRIVER VECTOR TABLE 

GET ADDRESS OF ASCIZ STRING TO PRINT 

BR IF END OF LIST HIT 

PRINT TEXT MESSAGE 

GET ADDRESS OF TIME CELL TO PRINT 

BR IF NONE WITH THIS TEXT 

CONVERT TO PERCENTAGE AND PRINT VALUE 



Driver vector for system usage printout. 

First entry of each ptiir is the address of an asciz string to print. 

Second entry is address of 32-bit time value to be printed as percentage. 

RUN-TIME 
I/O WAIT 
SWAP WAIT 
IDLE TIME 
END OF LINE 



SUMVEC: . WORD 


SUMl, TMUSRH 


. WORD 


SUM2, TMIOWM 


. WORD 


SUM3, TMSWTH 


. WORD 


SUM4., TMIDLH 


. WORD 


SUM 5, 


, WORD 


BUM6, TMIOH 


. WORD 


SUM7, TMSWP! 1 


. WORD 


SUM 5. 


. WORD 


SUMS, 


. WORD 






USER I/O Tli 
SWAP TIME 
END OF LINE 

END OF LIST 



IE 
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S53TlL MEMORY command 



f 

€ 
€ 
4 



4 

5 








6 


1 3066 


004767 


0000000 


7 


013072 


1 1 1 300 




3 


1 3074 


00 1 004 




9 








iO 








1 .1 








12 


013076 


004 767 


000 1 24 


13 


013102 


000167 


OOOOOOG 


14 








15 








16 








17 


0131 06 


10 5767 


0000000 


IS 


013112 


001005 




19 


1 3 1 1 4 






20 


013122 


000167 


OOOOOOG 


21 


013126 


004767 


0000000 


22 


013132 


120027 


000113 


23 


013136 


001001 




24 


013140 


00520;:* 




25 


013142 


121327 


000127 


26 


013146 


ooioct 




27 


1 3 1 50 


006301 




2H 








2? 


1 3 1 '32 


020167 


OOOOOOG 


30 


0i3:i 56 


101413 




3 1 


1 3 1 60 


016701 


OOOOOOG 


32 


013164 


010105 




33 


013166 






34 


013174 


004 767 


OOOOOOG 


35 


1 3200 






36 


013206 


072127 


000012 


37 


013212 


00 i 002 




3S 


013214 


01 2701 


177774 


39 


013220 


010167 


OOOOOOG 


40 


013224 






41 








42 








43 








44 








45 


13226 


010546 




46 


1 3230 






47 


013236 


016705 


OOOOOOG 


48 


013242 


020527 


177770 


49 


013246 


10 34 or? 




50 


013250 


012705 


000100 


51 


J 3254 


ooo4o::j 




52 


013256 


000305 




53 


1 3260 


072527 


177776 


54 


1 3264 


004767 


OOOOOOG 


55 


oi32;-o 






56 


0132 /6 






',".V /' 


0:; 37:0-| 


n i ~-r/(')lJ 


OOOOOOG 



i IhQ MEMORY command is uB{:^d to Bet or display the maximum memory limit 
.; for the current job. 



CMDMEM: CALL 
MOVB 
BWE 



CVTTAB 

<R3),R0 

SETMEM 



CONVERT TAB AND FF CHARS TO SPACES 

WAS A MEMORY LIMIT SPECIFIED WITH COMMAND? 

BR IF YES 



; Display current memDru values 



CALL 
JMP 



DSP MEM 
RDCMD 



; DISPLAY JOB MEMORY LIMITS 
i GO GET NEXT COMMAND 



Set a new memory limit f'or the job. 



SETMEM: 



4*&: 



1^: 



?*: 



3*: 



>*: 



TSTB 
BNE 

. PRINT 
JMP 
CALL 
CMPB 
BNE 
INC 
CMPB 
BNE 
ASL. 
Compare req 
CMP 
BIOS 
MUV 
MOV 
. PRINT 
CALL 
. PRINT 
ASH 
BNE 
MOV 
MOV 
.EXIT 



VSWPFL 
4* 

#NSWPMS 
RDCMD 
ACRDEC 
RO, #'K 
1* 
R3 

(R3), #'W 
2* 
Rl 
uest with max 1 
Rl, MXJMEM 
3* 

MXJMEM, Rl 
Rl, R5 
#MAXMTX 
PRTDEC 
#KBTX 
#10. , Rl 
5* 

#177774, Ri 
Rl, MAXMEM 



; IS SWAPPING ALLOWED? 

.: BR IF YES 

; CAN'T CHANGE MEMORY SIZE OF NON-SWAP SYSTEM 

i ACCRUE THE VALUE 
.;DID HE SPECIFY K-SOMETHING? 
;BR IF NOT 
.iSKIP "K" 
iWAS IT "KW"? 
; BR IF NOT 

; DOUBLE MEMORY VALUE 
i m i t . 

i IS REQUEST LARGET THAN MAX ALLOWED? 

; BR IF NOT 

; SET TO MAX ALLOWED 

.; DISPLAY MAX ALLOWED 



J CONVERT # KB TO ADDRESS 

iBR IF DIDN'T OVERFLOW 64KB 

.; SET TO 64KB 

i SET AS MAX ADDRESS FDR JOB 

iEXIT TO ACTUALLY DO THE MEMORY SIZE CHANGE 



4 

« 

i 
i 
4 



Display information about job memory limits. 



DSP MEM: MOV 

. PRINT 



R5, -<SP) 
#CURMTX 



MOV MAXMEM, R 5 

CMP R 5, #177770 

BLO 1* 

MOV #64. , R5 

BP 2* 

1*: SWAB R5 

A3tl #-2, R5 

2-Ei: CALL PRTDEC 

. PRINT #KBTX 

. PRINT #MAXMTX 

MiJV MXJMEM, R5 



,: CURRENT MEMORY = 

i GET CURRENT HIGH-MEMORY LIMIT FDR JOB 

i 64KB? 

j BR IF NOT 

; DO THIS TO AVOID OVERFLOW IN CONVERSION 

i CONVERT TO # KB 

:. DISPLAY THE VALUE 

j PRINT "KB" 

; MAX MEMORY = 

; MAX SIZE ALLOWED 



TSKSHO — A^^uhoa: d SHOW Command MACRO V05. 04 Monday 2i~Dec-87 13:0^*1 Page SJj-l 
MEMORY coir,rr,av)a 

58 013310 00476/ 0000000 CALL PRTDEC = DISPLAY THE VALUE 

59 013314 PRINT #KBTX .:"KB" 

60 0i33S2 0i260;> MOV <SP)+>R» 

61 013324 000207 RETURN 
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HHMORY CQT.niand 



3 








4 








r:: 


013226 


010 '5 4 6 




6 


013330 


00620',.' 




7 

a 


013332 
013336 


004767 


0000000 


9 


1 3344 


012601^ 




1 


013346 


000207 




1 i 




QOQOOJ. 




Errors detected 


: 




■Hr-Vrii- Assembler s 


t ci t i s t :1, L 


i\ 



PR'l KB is called to convfJi-t a value from # of 256--uiord memory pages 
to # i<-bytes and print the value followed by "Kb<cr><lf>" 



PRTKB: 



MOV R5. -(SP> 

ASR R5 

CALL PRTDEC 

.PRINT ttKBTX 

MOV (SP)+>Rl> 
RETURN 
fTMn 



i CONVERT # PAGES TO # KB 

; PRINT THE VALUE 

i PRINT "KB<CR><LF>" 



Wcn-k file reads 
Work file writes 
Size of uiovk file 
Size of core pool 
Operating 3 q s t e st\ 



11V64 Words 
17- '/^'O Words 
RT -l ■} 



< 47 Payes) 

< 70 Paqes) 



Elapsed time: 00:01:23,05 

DK: TSKSHO. LP; TSKSHO=DK: TSKSHO. MAC/C/N: SYM 



I 
I 
i 
< 
i 
I 
i 

c 
i 
I 

i 
i 
i 

< 






TSKSriO - 


- r 


^ i; q h a r 


Cross r(? 




• 3 T; (.. P: T 


*1GTLG 






*8BIT 


i- 


-105 


*AUTO 


1 - 


-81 


*CARHN 


i- 


- 1 98 


*CARUP 


i- 


-79 


f-CCLRW 


1 - 


-80 


*CFABT 


:t 


-iOO 


liCFALL 


t- 


1, 06 


^^(;|-CCL 


:i~ 


-106 




1 " 


■ 1 06 


HCfOPM 


1- 


-L12 


*CFSOT 


i- 


-104 


•$CIiACT 


1- 


-55 


■$Cl TST 


1- 


-90 


*CTRLC 


1- 


■98 


HCTRLD 


1 - 


•149 


^CTRLO 


1- 


-55 


*CTRLS 


1 - 


-85 


*DBKMW 


1- 


-78 


*DEAD 


1- 


-153 


*DEBUG 


1- 


-150 


*DEFER 


1- 


-lie 


*DETCH 


1- 


83 


*DIBOL 


i- 


,. i. -;•■ 


*DILUP 


1- 


-102 


*DJSCN 


1 ' 


fci4 


*DDOFF 


i- 


- 1 OB 


*r)UPRN 


1- 


-103 


*ECHO 




-105 


$eHTTR 


1- 


■89 


*FDRM 


1- 


- 1 04 


*FORMO 


t- 


106 


*HARD 


.1 


■ 1 53 


*HITTY 


■i . 

X 


-66 


$ INC OR 




-122 


*INDAB 




- 1 S'i 


*INDDF 




- 1 5;-' 


lilNDRN 




■152 


*IN1T 




-153 


*1NKMN 




-98 


■m\-D 


1- 


■122 


*K.TNIT 


1 - 


62 


f.! C 




■ !.0r! 


*LOFCF 




■ 1 9i3 


*Ml,OCK 




71 


*NOIN 


1 - 


■:.iO 


$NOINT 


1- 


■199 


fWOWTT 


1- 


66 


liPAGE 


i - 


105 


liPHONE 


1- 


■ 1 5;i 


*PRGL.K 


1- 


-Ql 


$07 SET 


1 - 


127 


$QU:lET 


J. 


119 


*RNIOP 


1 ■ 


200 


*SCQPE 


'i • 


i. 5 


liSCALi,, 


i •" 


u "J 
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9-. 1 1; 

9-7i0 



9 „..;>;•( 9-157 9-1S2 



9 -J 16 



1 1 - J 1 F< 



9 163 



9- J 96 11 -■45 
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*SGHIO 


1-11 7 
























*SGIIO 


i •- i i 7 
























*SGQO 


1 - 99 
























$SGQ1 


1 - 1 1 7 
























liBOQlA 


1-117 
























$300113 


1 - 1 1 7 
























*SGQ1C 


1 - 1 1 ■/ 
























*SGQ2 


1 -• i 1 7 
























l:SGQ3 


1-99 
























I^SL KED 


1-76 


2'?-''>'] 






















*Sl LET 


1-197 


27-: 56 






















*SLON 


1-197 


27-15 






















15SLTTY 


1-197 


27-30 






















liSMWTT 


1 - 1 50 
























*SFLJB 


1-85 
























*BTSNG 


1-55 
























*SUCF-- 


1-107 
























*IAB 


1-104 
























*TAPE 


1~-14S 
























■$Ti:CO 


1-127 
























f.TTOAG 


1 - 1 1 P 
























*UCLCF 


1-113 
























*UCLCL 


1-115 
























*UCLCM 


1-U5 
























*UCLRN 


1-11 4 
























*UKMOiM 


1-79 
























f.VMOTT 


i-<i;3 
























*VTESC 


i-75 
























■UilLD 


1~12S 
























. . . VI 


6--6 


6-H 


6-10 


6-12 


6-15 


6-17 


6-19 


6-21 


6-22 


6-24 


6-25 


6-27 




6-23 


Q-liO 


6-32 


6-36 


6-38 


6-40 


7-45 


7-47 


7-97 


7-100 


7-103 


7-104 




7-107 


7 -.108 


7-111 


7-118 


7-122 


7-124 


7-127 


7-136 


7-138 


8-7 


8-13 


8-21 




S-2S 


E3-35 


8-41 


8-47 


8-55 


8-60 


9-13 


9-14 


9-15 


9-43 


9-63 


9-79 




9-118 


9-124 


9-130 


9-132 


9-139 


9-141 


9-144 


9-148 


9-150 


9-171 


9-173 


9-176 




9-184 


9-190 


9-200 


9-202 


9-209 


10-14 


10 20 


10-23 


10-27 


10-28 


10-40 


10-43 




10-58 


io-7:j 


10-95 


10-1 OB 


10-110 


10-114 


10-124 


10-128 


11-36 


11-37 


11-60 


11-61 




1 1 -69 


11-73 


1 1 "85 


11-88 


1 1 -89 


11-96 


11-111 


11-114 


11-120 


11-127 


11-129 


11-133 




11-134 


3 1-140 


11-141 


11-157 


11-160 


11-162 


11-166 


11-173 


11-181 


11-183 


12-14 


12-15 




12-21 


13-33 


14-9 


14-10 


14-11 


1 5-68 


16-21 


16-21 


16-21 


16-26 


16-26 


16-32 




16-32 


16-98 


16-98 


18-6 


18-16 


18-19 


18-20 


18-30 


18-33 


18-34 


18-43 


18-46 




IB- 52 


18-58 


18-60 


18-61 


19-21 


19-27 


19-28 


19-29 


19-39 


19-61 


20-59 


20-60 




20-78 


20-B4 


20-132 


20-144 


20-147 


20-159 


20-166 


21-9 


21-12 


21-20 


21-27 


21-33 




21-36 


22-10 


22-11 


23-21 


23-31 


23-36 


23-59 


23-72 


23-76 


24-36 


25-33 


25-34 




25-53 


25-5B 


25-61 


25-62 


25-64 


25-85 


25-87 


25-91 


25-94 


25-96 


25-101 


26-11 




26-1 7 


26-18 


26-22 


26-27 


27-11 


27-20 


27-42 


28-14 


28-20 


28-24 


29-17 


29-22 




30 -.15 


30-20 


30-25 


30-29 


31-24 


31-42 


31-51 


31-55 


31-61 


31-67 


31-68 


32-S 




32-8 


32-8 


32-10 


32-15 


32- 1 7 


52-21 


32-27 


32-29 


32-33 


32-33 


32-34 


34-10 




34-17 


34-24 


35-19 


35-33 


35-35 


3 5 —1 6 


35-55 


35-56 


35-59 


36~S 






. . . V2 


16-21 


16-21 


16-21# 


i6-21# 


16-26 


16-26 


1 6~26# 


16-26# 


16-32 


16-32 


16-32# 


16-32# 




16-9B 


1 6-98# 


32-8 


32-8 


32-S# 


32-8# 


32-15 


32-15 


32-15 


32-1 5# 


32-1 5# 


32-15# 




32-27 


32-27 


32-27 


32-27# 


32-27# 


32-27# 


32-33 


32-33# 










AF<RTAD 


1-42 
























ABRTCD 


i-42 
























ABRTCF 


1-160 
























ACRDEC 


1-163 


35 2.i 






















ACRFIL 


1-167 
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i M.nfH 


J i 60 








AC R OCT 


!■ 170 








ACRSPD 


1-70 








f AD*$SZ 


t-sa 


1 9- i ;■' 


19-65 




AD*DVU 


1 33 


19-40 






AD*JOB 


1-58 


19-13 


19-34 




i ADH3A 


1 143 








Ai)i13FL 


1-144 








ADM3N0 


1-146 








f jfi^pAgyA 


I"- 39 


23-96 






AF^CCA 


1-32 


23-102 






AF^DBG 


1-199 


23-91; 






i AF^DUP 


1-32 


23-"9(:i 






AF-1iHIE 


1-199 


23-90 






AF^IND 


1-32 


25-99 






i AFf.IOP 


1-200 


23-92 






AF^MEM 


1-41 


23-93 






AF$N01 


1-199 


23-91 






( AF*NOW 


i-41 


23-09 






AF*NPW 


1-32 


23-103 






AF15PLK 


1-199 


23-94 






< AF*SCA 


1-41 


23-83 






AF$SET 


1-32 


23-101 






AF*TPO 


1-39 


23-97 






i AF*UCL 


1-32 


23-100 






ALCDEV 


1 -2S 








ALCEND 


1-57 


19-16 


19-66 




i ALCHDl 


1-54 


19~2B 






AL.CHD2 


1-54 


1 9-29 






ALCTBL 


1-57 


19-12 


1 9-33 




C ALDBLK 


1-163 








ALDEX 


1-182 


i-ib;-( 






ALFN 


1-194 








i AMBOPT 


1 - 1 68 


1-101 


5- IS 




ARffSZ 


1-197 








AR*CiMT 


1 - 1 96 








i AR*CON 


1-196 








AR'fiCPH 


1-196 








AR*CPL 


1-196 








i AR$DMY 


1-197 








ARSPRQ 


1-196 








AR*PRJ 


1-196 








< AR^UNM 


1-196 








ARNRPB 


1-197 








ASDEX 


1-165 








1 ASKLIMM 


1-164 








ASNEND 


1-103 


18-14 


IS -28 


18-63 


ASNHDl 


1-177 


1 8-6 






i ASi\iHD2 


1-177 


18-43 






ABNOVF 


I — 1 6 [j 


1-190 






ASNTBL 


1 - 1 02 


18--10 


1 8-24 


18-38 


1 AT$*SZ 


1-100 


1-132 


18-13 


18-27 


AT*DEV 


1-132 


19-44 






AT*EXT 


1-132 


18-53 






t AT^SFIL 


1 - 1 32 


18-47 


18-50 




AT*LOG 


1 - i 32 


1 8- 1 1 


18-25 


18-39 
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AT*SIZ 
AUi HFIM 
BADCMD 
BADPMT 
BADPRI 
BADSAV 
BASMAP 
BDPNAM 
BDLGOP 



BPFL 

BLANK 

BLKO 

BLK.WDS 

BDTDEV 

BOTUNI 

C. CSW 

C. DEVQ 

C. SBLK 

CIDEVX 

CALUCL 

CASCBR 

CASCUP 

CA9TBR 

CASTBW 

CASTRO 

CAST WO 

C<:LNAM 

CCLSAV 

CD$*SZ 

CD**UB 

CD*BAS 

CD*DVU 

CD*JOB 

CD$NAM 

CD*TOP 

CDBASS 

CDBASE 

CDBUF 

CDDVU 

CDGET 

CFIiIND 

CF*QUT 

CFABLV 

CFBLK 

CFBUF 

CFCHAN 

CFEND 

CFHOLD 

CFJ.ND 

CFL,FL4 

CFhIEST 

CFPNT 



1- 
1~ 



1- 
1- 
1- 



1~ 



23 
n 



1 3^"' 
IS/ 
164 
171. 
1 7 J, 
164 
137 
167 
172 

.- -I 1 ;; 

-11 

-7# 
-6# 
-163 
- 1 5 

-n# 

-97 



lti~b6 



1 

1 -97 
•i .... 1 na 

1-109 
1-109 
1-133 

1 - I '7r; 

1- 

1- 



-91 
■91 
-91 



!■ 

i . 
x 

!■ 
!■ 
!■ 
1- 
!■ 
4' 
4' 
!■ 
20- 



1-92 
t -92 
- 1 9 1 
-33 
■110 
■■ 1 1 
-110 
- 1 1 
■• 1 1 

• 1 1 
••127 
- 11 # 
-9# 

-99 
-10# 

- 1 54 

• 1 54 

■•IS;'; 

- 1 1 9 
. etc 

- 1 1 3 

-as 

-126 
- 1 OS 
- 1 1 3 

■ 1 1 ! 
-119 



e-ni) 



5--.l6# 



1 6-2.6 
23-10 



1 0-Hl/ 
13-;:'9 



2C--33 

20-17 

20—141 

20- J 21 

20-101 

20-105 

20-38* 

20-17 

20-101 

20-9 H^ 

20-16 



la- 
ss- 



ie 

■21 



i6~32 
34-36 



16-33 
31-47 



16- 
31- 



•45 
■51 



20-14 
32-15 



20-19 
32- le 



20-30 
32 -22 



20-57 
32-27 



20-64 
32-30 



20-164 



20-107 

20-48 
20—36 



20~108«- 

20-48 

20-36 

20-105 

20-95 

20-35 



20-82 
20-43 



20-89 
20-70 



20-97 
20-91 



20-99 
20-95 



20-105 



20-108 



20-38 
20-108 

20-42 



20-43 
20 121 

20 ■69 



20-43 
20-141 

20-94 



20-70 



20 115 



20-82 



20-120 



20-89 



20-135 



20-91 



20-95 



20-97 
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CFSEND 


:• '- 1 1 2 




CFSP 


1 -- 1 1 2 




CFSPND 


1-125 




CFSTK 


1-62 




CFSTS 


1-154 




CHAIN 


1-98 




CHKALC 


i-ioj> 




CHKDEV 


1-191 




CHKDLM 


1-181 




CHKEG 


1 - 39 




CHKMNT 


1-166 




CHKMTX 


1 - ,1 66 




CIiMDAT 


1-136 




CINFLG 


1-42 




CKACOJ 


1-39 




CKCLUS 


1-33 


10-6;^ 


CKPRIV 


1-168 




CKSYPV 


1-39 


7-K,j3 


CL*COL 


1 -60 




Ci.i^LEN 


1-95 




CL*LIN 


1-95 




CL*LIX 


1-56 


io~:k) 


CI *OPT 


1 -94 


10 -.101 


CL*RQH 


1-57 




Cl*SKP 


1-95 




CL-|iWID 


1 -95 




C!,*WGH 


1-57 




CLHEVX 


1 •■■- 1 34 


10-79 


CLFREE 


1-51 


9-200 


CLLINE 


1-51 


9-b2 


CLOPND 


10-120 


10-.166# 


CLOPTB 


10-102 


10-ll/3# 


CLOT I R 


1-59 




CLRPRV 


1-36 




CLSFCH 


1 -63 




CLSFSP 


1-92 




CI. TOIL 


1-92 


1 0- 1 2 


CLUNIT 


1-51 


9~;'o;,' 


CLVERS 


1-51 


10-21 


CMDBUF 


1-159 


1-176 


CMDCCL 


1-191 




CMDDSN 


1-27 




CMDFRM 


1-27 




CMDHD 


1-26 




CMDMEM 


1-2S 


35~i.--n 


CMDOFF 


1-26 




CMDSET 


1 -23 




CMDSHO 


1-2S 


5-i..4; 


CHDUSE 


1-28 


33-1341 


CMDWHO 


1 - 2S 


33 Mi 


C0*8BT 


i-.109 


10-157 


COfBNI 


1-94 


10-162 


CO^BNO 


1 -94 


10-161 


CDUCR 


1-93 


10-163 


CO*CTL 


1 -?3 


10-164 


CO*DEF 


1-60 





10-99 



10-133 



13-24 



I 

€ 
i 

< 

i 

€ 

i 
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CO$DTR 


l--'92 


lQ-i6b 






CO*FF 


1 -93 


10~i:">'t 






CO*FFO 


1-93 


10-160 






CO*LC 


1 ■■-93 


io-i;'6 






CO*LFI 


1-94 


10-159 






CO'HLFO 


i^-94 


io-.K:;!-f 






CO* TAB 


1 -93 


10-1 5;-' 






COAD 


1~1S2 


i-i(j;:< 






CDAF 


1-195 








CQAL 


i _ i an 


I-IC!!:* 






COLOO 


1-176 


11-162 






COMMA 


2-l0# 








C0NFG2 


1-56 


9-2b 






CONFIG 


1-107 








CORUSR 


1-55 


9-:'iH 


11-57 




CPUAH 


1-176 








CPUAL 


1-176 








CR 


2-5# 








CRLF 


1-171 


6-6 


6-8 


6-10 




6-32 


6-36 


6-38 


6-40 




1 5-68 


1 8-20 


18-34 


18-61 




26-17 


26- IB 


26-27 


27-42 


CS*RON 


1 -74 








CSHALC 


1-97 


7-J 16 






CSHDEV 


1-102 


20-13 


20-92 




CSHDVN 


1 - 1 02 


20-23 


20-110 




CSHHD 


1 - 1 5B 








CSHMSG 


1-198 


8-47 






CSHSIZ 


1-138 


e-4B 






CSIMSI 


1-170 








CSIMS2 


1-168 








CSIMS4 


1-190 








CTLNAM 


4~17# 


9-68 






CTRLTT 


1 -96 


9-50 






CURMTX 


i-181 


55-4 6 






CURPRM 


1-124 








CVDVNM 


1-178 


19-41 


20-76 




CVTTAB 


1-159 


5-6 


35-6 




CVTUC 


1 - 1 58 








CW*50H 


1-107 








CW*PRO 


1-56 


9-25 






CXTBAS 


1-101 








CXTPAG 


1 -73 








CXTWDS 


1-1 01 








DATTIM 


1-27 








DCCRD 


1-:!31 








DCCWR 


1-131 








DCSR 


4-7# 


16-2BJ: 


16-37 


16-61 


DCTRD 


1-131 








DCTWR 


1-131 








DEADEV 


1 - 1 66 








DELSPC 


1-130 








DETARG 


1-19D 








DETHD 


i 195 








DETTXT 


1-174 


li-6V 






DEVDSP 


14- t6 


1 5-^^7:;l 







6-12 

7-47 

19-27 

29- 1 7 



6-15 


6-17 


6-19 


6-21 


7-103 


7-107 


7-127 


9-13 


19-61 


20-159 


21-9 


21-20 


30-29 


31-68 


32-34 


34-17 



6-24 


6-27 


6-30 


9-209 


10-128 


11-183 


21-36 


23-76 


25-101 
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DEVHDl 


1-177 








DEVIDL 


1-- lS2 


1-182 


1-183 




DEVUNT 


i ~ 1 69 








DFviMEM 


1 -62 








DIABFL 


1-119 








DIABLO 


1-142 








DiABNO 


1-120 








DIVIDE 


1-175 


11-1 SO 






DIVSOR 


1-188 


34-.i,9i* 


34 -20*.' 




DJABMS 


1 - 1 S-6 








DKASHD 


1-53 


18-30 






DKSAV 


1-159 








DLCEMT 


1 •• 28 








DLMSG 


1-186 








DLTXT 


1 -■ 1 73 








DMT ALL 


1-1S6 








DMTARG 


1-165 








DMTSUB 


1-191 








DMYDEV 


1 -39 


29- i 


30-22 




DOASGN 


1-79 








DORUN 


1-27 








DOSTOP 


1-187 








DSFCSR 


15-64 


16-7# 






DSP MEM 


8-64 


3 5- .12 


35-45# 




DVEC 


4-6# 


1 6-3;:h;- 


1 6-38 




DVSHHi 


1-53 


i4-V 






DVSHH2 


1-53 


14 -.10 






DVSHH3 


1-53 


14-1 J 






DVSTAT 


1-70 


1 5~L'9 






DZTXT 


1-193 








EDIT 


1 --67 








EDTFIL 


1-179 


23-16 


31-40 




EM*ACL 


1 -48 








EM*CAP 


1-38 








EM*CIP 


1-47 








EM*CLB 


1 -48 








EM^CLN 


1-47 








EM$CNO 


1 -38 








EM*CPO 


1 -38 








EM*CSE 


1-64 








EM$HNI 


1-62 








EM^ICL 


1-46 








EM*ILN 


1-'17 


1-48 






EM* I UN 


1-47 








EM*NAD 


1-40 








EM-$NPD 


i--47 








EM*I\|SF 


1-^7 








EM*NSL 


1-4S 








EM*NUK 


1 -80 








EM*SLT 


1 -48 








EM*SLW 


1-48 








EM*TSL 


1-48 








EM^UIO 


1-49 








ERRLOC 


1-61 








ERRSEV 


1 - i 20 








esc; 


1-76 







16-71 
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table a;KE[ 


• VO' 


0. 04 


FC*CDX 


1-158 








FC*LIMK 


I - J, 5B 








FD*NAM 


1 -- 1 58 








Ff- 


2-9 # 








FILNAM 


1 ~ 1 60 


1~,I61 


32- 


-5* 


FKILL 


1 - 1 60 


5- 1 n 


5- 


-19 


FFRINT 


1-160 








FRAC64 


2 5™ 52 


25-1 ,i2# 






FSTDL 


1-83 








FST I OL 


I'" 56 


1--73 


O- 


"21 5 


GAGMSG 


1-105 








OENTOP 


1 -97 








GETKCH 


1-71 








GRTl 


1 - 1 39 








GTRD50 


1-165 








H. CSR 


1-70 


16-2B 






H. VEC 


1-70 


16-33 


16- 


-45 


HANBSY 


1-170 








HANCHN 


1-58 








HANENT 


1-69 


1 5-37 






HAN IOC 


1-33 


15-21 






HANWAM 


4-5# 


16-1 5 K- 


16- 


-16* 


HAMPAR 


1--70 


15-48 






HANS I Z 


1-69 


15-56 






HAZEL 


1-71 








HAZLFL. 


1 ~7i 








HAZLNO 


1-71 








HI MAP 


1-137 


8-56 






HIFRI 


1-171 








HNBUF 


1-169 








HUPARG 


1-190 








II$*SZ 


1-40 


22-22 






II*FLG 


1-40 


23-27 






II*NAM 


1-40 


22- 1 9 


23- 


-14 


II*NPV 


1 -42 


23-48 


23- 


-68 


II*PRV 


1-42 


23-47 


23- 


-64 


IJBUF 


1-40 


22-19 


23- 


-14 


ILLCMD 


1-166 








ILSW2 


1-77 


9-56 


9- 


-112 


INTACT 


1-152 








IN*CMD 


1-152 








INfCNT 


1 - 1 52 








INDACT 


1 - 1 62 








INDERR 


l-lOO 








INDSAV 


1-152 








INDSTA 


1-tOO 








INFOMT 


1 - 1 66 








INGADR 


1 -40 


22-J6i^ 






INGEMT 


1-40 


22-- 17 






INSANT 


23-26 


23-83# 






IWSPRT 


22-21 


23-7# 






INSrBL 


i-40 


22-1 L» 






INSTBN 


1 -4 1 


22-23 






INVDAT 


1-19:^ 








IWVDEV 


1-194 








INVEC 


1-153 


9-76 







32- 



•6* 

■27 



32-S 



16- 



'3- 



3-"47 



23-64 



23-68 
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INVLDM i:i"0 

INVLDN l~x67 

I WVOP T J - 1 3 X 5 - .1 9 ,1. J -27 

INVTIM i-186 

lOABFL 1-55 

ITRMTP 1-154 

JCXPGS 1-137 8-61 

JCXSMS 1-193 B-60 

JBTKND 1 -96 

K52 1--67 

KBMSG 1-175 11-140 

KBTX 1-179 35-3:7 35-55 35 59 36 S 

KCSIBF 1-164 

KCSIMS 1-16'3 

KDOCIN 1-26 

KED 1-67 

KILEMT 1-1S7 

KL3CLR 1-81 

KL4CLR 1-121 

KMNBAS 1-149 

KMNCHN 1-88 

KMNHI 1-72 

KMNNAM 1-191 

KMNPGS 1-73 

KMNSTK 1-73 

KMNSTR i-73 

KMNTOP 1-73 

KMPRMT l-13:i 

L 3-70 

3-76 

3-82 

3~as 

3-94 

3-100 

3-106 

3- 1 1 2 

3-1 IS 3-1 10# 3-119 3-1 19# 3 120 3-120# 3 •121 3-121# 11-8 11 -8# 

LA J 20 1-142 
LAi2FL i-143 
LAi2N0 1-143 
LA36 1-142 
LA36FL. 1-120 
LA36N0 1-120 
i-ACTIV 1-74 
LAPS I Z 1-77 
LBSPRI 1-155 
LCBIT 1-142 
LCDTYP 1-60 9-67 
LCLTXT 1-51 9-55 

LCLUNT 1-56 9-114 9-159 9-192 

1 - I :.:'■/ 



3-70« 


3-71 


3-76# 


3-77 


3-B2# 


3-83 


3-S8# 


3-89 


3-94# 


3--95 


3-i00# 


3-101 


3- 1 06# 


3-107 


3-1 12# 


3-113 


3-1 10# 


3-119 



3-7 1# 


3-72 


3-77# 


3-78 


3-83» 


3-84 


3-89# 


3-90 


3-95# 


3-96 


3-101# 


3-102 


3-107# 


3-108 


3-1 13# 


3-114 



3~72# 


3-73 


3-78# 


3-79 


3-B44i 


3-85 


3-90# 


3-91 


3 -96# 


3-97 


3~102« 


3-103 


3-1 0S« 


3-109 


3-114:W 


3-115 


3-120# 


3 •121 



3-73# 


3-74 


3-79# 


3-80 


3-85# 


3-86 


3-91# 


3-92 


3-97« 


3-98 


3-103# 


3-104 


3-109# 


3-110 


3-1 15# 


3-116 



3-74# 


3-75 


3-80# 


3-81 


3-86# 


3-87 


3-92# 


3-93 


3~98# 


3-99 


3-104# 


3-105 


3-1 10# 


3-111 


3-1 16# 


3-117 



3-75# 
3-81 # 
3-87# 
3-93# 
3-99# 
3-105# 
3-1 11# 
3-1 17# 



LCOL 1-76 1 

LCONTM 1-85 11-146 

LCPUHI 1-85 11-167 

LCPULD I S5 il-.l6D 

LD*RON t-ii5 31-59 
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.0 



I...DBASE 


1-116 






LDCLEN 


1-65 


31-14 




LDDEVX 


1--118 






LDFLAG 


1-11 6 


31-59 




LDMNT 


1-64 






LDMAM 


1-164 






LDWAME 


1-116 


31- J 9 


31-31 


LDOPHD 


1 - 1 72 






LDPDEV 


1-116 


31-65 




LE*SI2E 


i - 1 1 6 


31-53 




LF 


2~4# 






LF*OPW 


1-157 






LF$WRT 


1-157 






LFWLIM 


1-77 






LICTXT 


1-139 






LINBUF 


1-72 






LINCNT 


1-74 






L INCUR 


1--77 






LINFRE 


1 ~ 1 B6 






LINIR 


1 59 






LJNNXT 


1 -va 






L J NP NT 


1 -74 






LINRTS 


1-59 






LITIME 


1-99 






Lv»SW 


1-96 






LMXLN 


1-153 


9-70 


9-80 


LMXNUM 


1-151 


9-71 


9-93 


LMXPRM 


1-154 


9-120 


9-136 


LNAME 


1-54 


9-106 




LNBLKS 


1-101 


11-135 




LNMAP 


1-107 






LNPRIM 


1-107 


9-39 


11-71 


LNSBLK 


1-102 


11-136 




LNSPAC 


1-111 






LOCKTX 


1-175 


11-127 




LOf-SPC 


1-104 






LOOASN 


1 - 1 67 






LOGBAS 


1-126 


1~.128 




LOGBLK 


1-156 






LOGBUF 


1-156 






i.OGCHK 


1-127 






LOGCHN 
LOGCLS 


1 - 1 56 
1-171 






LOGDVU 


1 - 1 26 


1 - .1 Pii 




LOGFLG 


1-156 






LOGPTR 


1 - 1 56 






LOHAP 


1-137 


S-29 


8-57 


LOTBUF 


■■ ...'7r-, 






LOTNXT 


1-75 






LOTPNT 


i-75 






LOTS I Z 


1-76 






LOTSPC 


1 -76 






LOUT I R 


1-59 






LP*7BT 


1-46 


9-137 




LP*ODD 


1-46 


9-.t46 




LP*PAR 


1-46 


9- J 42 
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LP*SPD 1-46 

LPRGl 1-J40 11.-. 174 

LPRG2 1-140 11-176 

LPRI 1-155 7-98 11-93 

LPROG 1 --84 

LPROJ 1-84 

LRBFIL 1-1 08 

LRDTIM 1-74 

LSCCA 1-104 

LSECPT 1-S9 11-7^ 

LSTACT 1-72 

LSI ATE 1-135 11-101 

LSTDL i-e3 11-67 

LSTHL 1-56 9-; '11 

LSTIOL 1-56 

LSTMX 1-151 

LSTPL 1-129 9-53 9-161 9-194 9-213 11-65 11-74 

LSTPRM 1-125 

LSTSL 1-135 11 -108 

LSTSPL 1-70 12-16 

LSUCF i-ao 

LSW 1-55 9-58 9-116 9-163 9-196 11-45 11-118 

LSW2 1-98 

LSW2S 1-103 

LSW3 1-103 9-23 9-157 9-182 

LSW4 .r-121 

LSW5 1-81 9-60 

LSW6 1-150 11-125 

LSW7 1-154 27-J5 28-18 

LSW8 1 - 1 1 7 

LSW9 1-79 

LTRMTP 1-143 

LTSCMD 1-111 

LUNAME l-e-''! 

MAXALC 1-57 

MAX ASM 1-100 

MAXAVL 1-169 

MAXMEM 1-61 35-391? 35-47 

MAXMTX 1-181 35-33 35-56 

MAXPRI 1-61 1-155 

MAXSEC 1-S9 11-77 

MDT 1-71 

MHNSI2 1-90 a-36 

MHNSMS 1-91 8-:(;' 

MINTIM 1-S'? n-14:y 

MISSEQ 1-170 

MNBASE 1-lBO 

MNBPC 1-179 

MNFLGS 1-179 

MNTARG i-190 

MNTDEV 1-165 

MNTFUi- 1 - 1 67 

MN't OP i - 1 80 

MNTTXT 1-192 6-25 

MONARl 1- ISO 

M0NAR2 l-.i80 
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MOWHD 1-ieo 
MONVEC i-i;v:i 

MBGBUF l-iStJ 

MSGEND i-i.85 

MTOPHD l--:i.66 

MUL32 l-.l9b 

MXCSR i-153. 9-V9 

MXDTR 1-151 

MXvMDR 1-63 

MV IMrrtvl 1 -AD T ■=: ., c:jr, '-!k;_-:}4 n'^-.'^'7 

MXJPRI 1-155 7 -.(01 

MXPRMT 1-133 

MXVEC 1-153 9-Bb 

NAMTOP 1 -- 1 39 

NARGS 3-69# 3-70 3-70 3-71 3-71 3-72 3-72 3-73 3-73 3-74 3-74 3-75 
3-75 3-76 3-76 3-77 3-77 3-78 3-78 3-79 3-79 3-SO 3-80 3-81 
3-81 3-B2 3-82 3-83 3-83 3-84 3-84 3-85 3-85 3-86 3-86 3-87 
3-87 3-88 3-88 3-89 3-S9 3-VO 3-90 3-91 3-91 3-92 3-92 3-93 
3-93 3-94 3-94 3-95 3-95 3-96 3-96 3-97 3-97 3-98 3-98 3-99 
3-99 3-100 3-100 3 101 3-101 3-102 3-102 3-103 3-103 3-104 3-104 3-105 
3-105 3-106 3-106 3-107 3-107 3-108 3-108 3-109 3-109 3-110 3-110 3-111 
3-111 3-112 3-112 3-113 3-113 3-114 3-114 3-115 3-115 3-116 3-116 3-117 
3-117 3-118 3-118 3-119 3-119 3-120 3-120 3-121 3-121 11~7# 11-8 11-8 

NATXT 1-173 9-124 

NfcDCHR 1-59 

NEW JSW 1 -96 

NFRESB 1-123 

NINTXT 1-173 9-184 

NLINES 1-109 20-154 

WOCCL 1-172 

NOCIN 1-164 

NODAT 1-178 21-12 

NOFIL 1-176 1-1 B4 12-21 

NOFLAG 1-166 

NOFRDL 1-195 

IMOIND 1-170 

NOKMON 1-191 

NOLDMT 1-178 31-24 

NONEMS 1-178 20-166 29-22 

NOOPTT 1-184 

NOPMGN 1-180 

NOPRG 1-160 1-164 

NOSTRT 1-163 

NOTAVL 1-179 31-67 

NOTON 1-185 

NOTXT 1-173 9-11-6 25-85 25-94 

NOUDC 1-177 13-33 

NSPLDV 1-115 30-10 

NSWPMS 1-1 SI 35-19 

NUCHN 1-iOS 

NUMDCD 1-133 7 71' 

NUMDEV 1-146 14- IB 

NUMON 1-77 

NUMST 11-105 ll-226# 

OCTFIX 1-173 9-07 15-31 15 42 15-50 16-65 16-75 16-88 32-20 32-23 

OCTPRT 1-193 9-.S00 
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ODTBAS 
OF$*SZ 
OF*DEV 
OF$FIL 
OF*FLG 
OF*UWT 
OFFEMT 
OKFEND 
OKFILE 



1-^149 

l-i'1S 

1-147 

1-147 

1-147 

1-147 

1-187 

1 --90 

i -90 



OPTLST 

OT*RON 

DTHRON 

QTRMNT 

OVRCOR 

P0$DBG 

PO*OPR 

PO^SPV 

PO*SYS 

PASLIN 

PAUMSG 

PBFEND 

PEKADR 

PEKEMT 

PEKSIZ 

PF*IOW 

PF*SYS 

PFCO 

PFSO 

PHYMEM 

PIDCSR 

PIDSLT 

PIDVEC 

PMBUSY 

PNAME 

POPCF 

PRGALL 

PRGSIZ 

FRGTOP 

PRIVAO 

PRIVCO 

PRIVSO 

PRMBUF 

PRMEWD 

PRMPNT 

PROSLT 

PRTBUF 

PR7DAT 

PRTDC2 

PRTDC3 

PRTDEC 

PR IF IX 

PRTFNM 
PRTKB 



1-36 
1 ~ 1 4S 
1-189 
■191 
-163 
•41 
-39 
■37 

-128 
1-159 
1-112 
1-35 
1-35 
1-35 
1 -■ 1 50 
1 - i 50 
1 —36 
1-36 
1-95 
16-55 



17 
16 

1 
1 
1 



•lit 
-83 
-180 
-146 

- 1 70 
1 -27 
1-72 
1-72 
1-38 
1-^1 
1-37 
i-125 



1- .ic';> 
1 24 
l--^!6 
1-17S 
1-194 
1-175 
1-175 
1-169 

18-59 
1-172 

25-77 
1-1 78 



6~::<3 



24~2Pi;- 

24-24 

24-P.ZH- 



1 7-36# 

17-36 

i7-53# 

1 - 1 69 



26-12 
6-33 



17-12 
20-118 
21 -a 
1 1 - X 58 
11-1 39 

7-46 
20-148 

9-34 

20-122 

H-19 



24-28 



17-53 



15-14 



16-16 



26-23 



17-17 
20-127 

11-161 

7-99 

21-32 

9-82 



8- 



20-132 

21-35 

7-102 
25-54 
10-54 

8-33 



7-106 
31-54 
10-69 



B--39 



7-110 
52-31 
11-95 



8-45 



7-126 
35-34 
11-155 



B~53 



9-174 
35-54 
1 5-23 



S-58 



9-204 
35-58 
15-50 



8-63 



10-22 

36-7 

19-51 



36— 5# 



10-44 
25-51 



li-84 
25-71 
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PRTLN 


1-174 


11~S2 


11-72 








PRTPCT 


1-188 


34-27 










PRTR50 


1-194 


9-69 


11-175 


11-177 


15- 


^15 




19-42 


20-77 


25-40 


25-42 


29- 


-14 


PRTSPC 


1-172 


9-45 


9-75 


9-84 


9- 


•89 




10-71 


10-75 


15-13 


1 5-20 


15- 


-28 




19-44 


19-53 


25-82 








PR7TIM 


1-194 


21-43 


33-13 








PRTTMD 


1-177 


34-16 










PRTTMV 


1 — I '7A 


1 1 - i 69 










PRTTOD 


1-194 


21-19 










PRTTTP 


1-173 


9-106 










PRTUNH 


1-174 


9-198 


11-182 


19-57 






PRTUSE 


11-32 


34-5# 










PRTWRN 


1-198 












PRVLST 


1-41 


23-67 


23-71 


26-16 


26- 


-26 


PRVOPT 


1-37 












PUSHCF 


1-161 












PVNPW 


1-36 


23-49 










PVON 


1-31 












QHDMSl 


1-53 


1 2- 1 4 










QHDMS2 


1-53 


12-15 










QUME 


1-142 












QUMEFL 


1-144 












QUMENO 


1-144 












RSOBUF 


1-165 












RMCLO 


4-8# 












R50C0M 


1-104 












R50DIR 


1-161 












R50DK 


1-194 


18-25 










R50DSK 


1-167 












R50DUP 


1-162 












R50IND 


1-161 












R50K52 


1-162 












R50KED 


1-162 












R50KEX 


1 - 1 62 












R50LD 


1-167 












R SOLDO 


1-165 


31-29 










R50LD7 


1-167 












R50L0G 


1-171 












R50M0N 


1-195 












R50N0 


1-168 












R50PIP 


1-162 












R50SAV 


1-161 












R50SY 


1-161 


18-11 










R50TSX 


1 - 1 62 












R50TT 


1-190 












R50UCL 


1-162 












R50VIR 


1-163 












RC**SZ 


1-45 


24-13 


24-23 


24 29 






RC*AEP 


1-44 


25-92 










RC$AGE 


1 -44 


25-92 










RC*CNT 


1-43 


25-75 










RC*EXC 


1-44 


25-B3 










RCfFLG 


1-44 


25-15 


25-17 


25-19 


25 


-59 


RC$GBL 


1-44 


25-19 
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18-18 


18-32 


18-42 


18-45 


18-49 


29-16 


30--24 


31-41 






9-102 


9-108 


9-152 


9-170 


10-46 


1 5-36 


1 5 47 


15-55 


15-60 


16-63 



25-83 



i 
I 



18-51 18-55 

i 

10-56 10-60 

16-70 16-93 



i 
I 
I 

i 
f 

f 

I 

< 

i 

C 

i 

i 

i 

i 

I 

I 
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RC*LCO 


l-4i 


25- 


"17 


RC$LEN 


1-45 


25- 


-46 


RC*NAM 


1-44 


25- 


-39 


RC*OWM 


1-43 


25- 


-60 


RC*PVT 


1-45 


25- 


-59 


RC*USE 


1-44 


25- 


-15 


RCBBAS 


1-45 


24- 


-11 


RCEEND 


1-45 


24- 


-14 


RDB 


1-134 


29- 


-6 


RDBE.ND 


1 -^ i "J A 


29- 


■a 


RDCMD 


1-159 


3- 


-82 


RDERM 


l~i£v3 






REMTXT 


1-51 


9- 


-62 


RESDEV 


1-148 






RGNDSP 


24-12 


24- 


-27 


RNMS 


1-174 


11- 


-107 


ROMTXT 


1-179 


31- 


-61 


RSR 


1-151 


9- 


■76 


RSTPRV 


1-38 






RT**SZ 


1-134 


29- 


-18 


RTfDEV 


1-134 


29- 


•10 


RT*NAM 


1~134 


29- 


-12 


RUNDEV 


1-101 






RUNEMT 


1-163 






RUNHD 


1-159 






RUNMS 


1-195 






S1i*RUN 


1-80 




-108 


S*HICP 


1-86 




-210 


S*INWT 


1-87 




-215 


S*IOFN 


1-82 




-213 


S*IOWT 


1-140 


11- 


-221 


S*LOW 


1-84 


1 1- 


-214 


S*MSWT 


1-88 




-217 


S*DTFN 


1-82 




-209 


S*OTLO 


1-82 




-212 


S*OTWT 


1-87 




-216 


SfQMIO 


1-80 




-223 


S*QUSR 


1-140 




-220 


S*RT 


1-84 




-206 


S*SFWT 


1-87 




-222 


S$SPCB 


1--141 




-225 


StSPDB 


1-141 


1 1- 


'PP4 


SfSPND 


1-Sl 




-210 


S$TMWT 


1 -97 




-217 


S*TTFN 


1 -82 


1 1- 


■20B 


S^TTSC 


i~S3 


1 1- 


•207 


SfTWFN 


1-S2 


1 1- 


■211 


S9600 


1 -87 






SCHAIN 


1-iiS 






SD*BAK 


1 121 






SD*DEL 


1-11 3 






SD$FLK 


I - 1 1 4 






SD*HLD 


1 - 1 2''^ 






SD*SNG 


1-123 






SD*WFM 


1-114 






SDBLK 


1 - U S 







?5-41 



6-79 6-84 7-48 7-112 7-128 33-7 33-14 35-13 35-20 



25-11^ 



29-15 
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SDBU 


1-121 








SDBUFl 


1-115 








SDCB 


1 -- 1 29 


1 0-OB 


12- 


-7 


SDCBND 


1 -- 1 29 


1 0-89 


12- 


-8 


SDCBSZ 


1-135 


10-93 


12- 


-12 


SDDVU 


1-134 


10-91 






SDFHD 


1-126 


12-10 






SDFLAG 


i--114 








SDFORM 


1-114 








SDWAME 


i .-1 '->>---. 


30 21 






SDSFCB 


1 - 1 1 3 








SDSKIP 


1-121 








SEARCH 


1-159 


5-10 


11- 


-25 


SERFLG 


1-55 








SETHD 


1-168 








SETMEH 


35-8 


35-17# 






SF$1ST 


1-124 








SF*BSY 


1-123 








SF$HLD 


1-124 








SFFILE 


1-141 








SFFLAG 


1-126 








SFFORM 


1-123 








SFID 


1-70 








SFNMBL 


1-123 








SFQLNK 


1-126 








SFUSER 


1-141 








SHf*SZ 


1-68 








SH*FLG 


1-68 








SHfNAM 


1-68 








SH*RTN 


1 -63 








SH'^fVAL 


1-6S 








SHMTHl 


1-177 


20-59 






SHMTH2 


1-177 


20-60 






SHOALC 


6-11 


6 -83 


19- 


-5# 


SHOASN 


6-9 


6-46 


18- 


-5# 


SHOCL 


6-16 


6-88 


10- 


-5# 


SHOCMD 


6-52 


13-13# 






SHODAT 


6-63 


21-5# 






SHODEV 


6-7 


6-57 


6 


-68 


SHOHD 


1-192 


3-69# 


5- 


-9 


SHOINS 


6-35 


6-93 


22 


-5# 


SHOJOB 


6-13 


6-73 


11- 


-n# 


SHC3KEY 


1-33 


3-87 
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